написать программу по задаче

+ 0 -

школа41

04 сент. 2013 г., 4:55:10 (10 лет назад)

Var a,b:integer;
Begin
  Write('Введите 2числа'); readln(a,b);
if a<b then writeln(a, ' меньше ', b);
if a>b then writeln(a, ' больше ' ,b);
if a=b then writeln('числа ',a,' и ', b, 'равны');
end.

+ 0 -

Sergeigogoi

04 сент. 2013 г., 5:39:21 (10 лет назад)

сначала была дана задача: из двух целых чисел а и b найти большее. а затем из неё вытекает такая задача:в задаче 1 предусмотрен случай когда числа а и b равны

+ 0 -

дианочка2450

04 сент. 2013 г., 6:31:55 (10 лет назад)

Комментарий удален

+ 0 -

Gkhljmgjfkd

04 сент. 2013 г., 8:52:25 (10 лет назад)

да,что они равны.нужно составить такую программу чтобы было условие if then и в конце когда введёшь два числа,то на экране выйдет,равны они или нет.я так понимаю

+ 0 -

Olga65

04 сент. 2013 г., 9:26:10 (10 лет назад)

пиши так: if a=b then writeln('числа равны')
else writeln('числа не равны');

+ 0 -

Yyyyyyyyyrrrr

04 сент. 2013 г., 10:58:47 (10 лет назад)

кстати, неравенство записывается знаком <>