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

Question

Информатика

Василек

18 марта, 05:11

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

+2

Ответы (2)

Знаете ответ на вопрос?

Тонюра · Answer 1

Паскаль

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.

Ира · Answer 2

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

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.