13.06.2010, 17:27
|
#7 (permalink)
|
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Сообщение от JIox
да ладно, ошибку я уже исправил
в итоге получилось:
var a,b:real;
begin
write ('Введи два чиcла: ');
readln (a,b);
if (abs(a)>abs(b)) then
a:=a/5;
writeln ('A = ',a,'; B = ',b);
end.
|
ВНИМАНИЕ, здесь ошибка:
Цитата:
writeln ('A = ',a,'; B = ',b);
|
Должно быть
Код:
writeln ('A = ',a,' B = ',b);
Т.е. точка с запятой - лишняя!
|
|
|