Составьте программы на языке программирования для решения задачи : Число А вводиться с клавиатуры если оно положительно то извлечь из него квадратный корень иначе возвести его в квадрат результат вывести на экран
Составьте программы на языке программирования для решения задачи : Число А вводиться с клавиатуры если оно положительно то извлечь из него квадратный корень иначе возвести его в квадрат результат вывести на экран
Гость
Ответ(ы) на вопрос:
ГостьНа языке Pascal
var a,r:real;
begin
writeln('Введите число');
readln(a);
if a>0 then
begin
r:=sqrt(a);
writeln('r= ', r:6:3);
end
else
begin
r:=sqr(a);
writeln('r= ', r:6:3);
end;
end.
Не нашли ответ?
Похожие вопросы