Задание:
Написать программу, которая меньшее возводит в квадрат, а большее оставляет безизменений
Решение:
Если на паскалеprogram qweqrq; var a,b,c: integer; beginwriteln ('a'); readln (a); writeln ('b'); readln (b); if a Знаете другой ответ?
Написать программу, которая меньшее возводит в квадрат, а большее оставляет безизменений
Если на паскалеprogram qweqrq; var a,b,c: integer; beginwriteln ('a'); readln (a); writeln ('b'); readln (b); if a Знаете другой ответ?