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

Question

Информатика

Владимирыч

20 сентября, 17:10

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

+2

Ответы (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.