Написать программу, которая меньшее возводит в квадрат, а большее оставляет без изменений
Написать программу, которая меньшее возводит в квадрат, а большее оставляет без изменений
Гость
Ответ(ы) на вопрос:
Гостьесли на паскале
program qweqrq;
var a,b,c:integer;
begin
writeln('a');
readln(a);
writeln('b');
readln(b);
if a
ГостьПаскаль
Var
a,b:real;
Begin
write('a='); readln(a);
write('b='); readln(b);
if (a