Составьте программы на языке программирования для решения задачи: Число А вводиться с клавиатуры если оно положительно то извлечь из него квадратный корень иначе возвести его в квадрат результат вывести на экран

Question

Информатика

Флена

19 июля, 16:22

Составьте программы на языке программирования для решения задачи: Число А вводиться с клавиатуры если оно положительно то извлечь из него квадратный корень иначе возвести его в квадрат результат вывести на экран

+3

Ответы (1)

Знаете ответ?

Лукич · Answer 1

На языке 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.