Предмет: Информатика,
автор: kirill59128
дано число, если оно больше или равно нулю, то извлечь из него квадратный корень, иначе возвести в квадрат.
Ответы
Автор ответа:
1
Var a:real;
begin
read (a);
If a>=0 then a:=sqrt(a) else a:=sqr(a);
write (a:3:2);
end.
Автор ответа:
1
P.S Программанаписна для Pascal.
program chislo;
var
n, s, k :real;
begin
writeln('Введите число: ');
read(n);
if n>=0 then
begin
s:=sqrt(n);
writeln('Квадратный корень числа: ',s);
end
else
begin
k:=sqr(n);
writeln('квадрат числа: ',k);
end;
end.
Похожие вопросы