Предмет: Информатика,
автор: katemiller98
написать программу по задаче
если два целых числа а и b равны
Ответы
Автор ответа:
0
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.
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.
Похожие вопросы
Предмет: Физика,
автор: nik22o33
Предмет: Другие предметы,
автор: rgiliaziev00
Предмет: Литература,
автор: dovbnialiuba12
Предмет: Алгебра,
автор: lala1985
Предмет: Литература,
автор: Оля29Жордания