Написать программу: Дано целое число. Если оно неотрицательное, то извлечь из него квадратный корень, в противном случае возвести в квадрат.
299
301
Ответы на вопрос:
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.
Популярно: Информатика
-
vika347504.08.2022 13:44
-
RCloke24.08.2021 06:09
-
Lerika5164016.04.2021 08:08
-
wingluhova8202.06.2020 09:46
-
igornagornov020.05.2022 10:13
-
tupoybolgarskiy25.06.2023 02:43
-
lgolar06.11.2021 10:12
-
nasty78ss03.07.2022 21:11
-
marisha16819.10.2022 17:31
-
striyskiy107.12.2022 12:35