Тема: Pascal ABC
Показать сообщение отдельно
Старый 17.01.2012, 01:14   #1 (permalink)
Федор07
Новичок
 
Регистрация: 06.01.2012
Сообщений: 8
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Pascal ABC

Program 1;
Var a,b,c: real;
Begin
writeln('введите 1 катет= ');
readln(a);
writeln('введите 2 катет= ');
readln(b);
c:=SQRT(a*a+b*b);
writeln('гипотенуза= ,c');
End.

Вот например эта запись. Вроде все правилно. Когда ввожу катеты гипотенузу не считает. Что не так?
Федор07 вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070