Составить программу для вычисления значения y по формуле y= квадратный корень из x заданного с клавиатуры,если число отрицательное ,то вывидите сообщение,что значение y не существует

57494967468746 57494967468746    3   18.03.2019 11:10    0

Ответы
asim2001 asim2001  25.05.2020 23:20

var x,y:real;

begin

readln(x);

if x<0 then writeln('Oshibka') else begin y:=sqrt(x); writeln('y=',y); end;

end.

ПОКАЗАТЬ ОТВЕТЫ
Анкта Анкта  25.05.2020 23:20

program kvadr;

var x, y: real ;

begin

write('введите значение x');

read(x);

if x > 0

then begin Y:=sqrt(x) ;

end;

write(Y)

else write('у не существует')

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика