Написать программу: Дано целое число. Если оно неотрицательное, то извлечь из него квадратный корень, в противном случае возвести в квадрат.

cherepd2005 cherepd2005    1   24.04.2020 14:55    0

Ответы
Бекзат2000 Бекзат2000  09.08.2020 22:56

program qq;

var i:real;

Begin

 read(i);

 if(i < 0) then

 begin

   i:= sqr(i);

 end

 else

 begin

   i:= sqrt(i)

 end;

write(i:2:2);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика