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,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
