написать программу, которая меньшее возводит в квадрат, а большее оставляет без изменений

Question

Информатика

Котя

29 апреля, 19:00

написать программу, которая меньшее возводит в квадрат, а большее оставляет без изменений

+1

Ответы (2)

Знаете ответ?

Германыч · Answer 1

Если на паскале

program qweqrq;

var a, b, c:integer;

begin

writeln ('a') ;

readln (a) ;

writeln ('b') ;

readln (b) ;

if a
then

begin

c:=sqr (a) ;

writeln (c) ;

end;

else

begin

c:=sqr (b) ;

writeln (c) ;

end;

end.

Катюра · Answer 2

Паскаль

Var

a, b:real;

Begin

write ('a=') ; readln (a) ;

write ('b=') ; readln (b) ;

if (a
else b:=sqr (b) ;

writeln ('a=', a,' b=', b) ;

End.