Предмет: Информатика,
автор: Elizaveta222
срочно надо, помогите пожалуйста составьте программу на паскале для вычисления значений у по формуле у=корень из х для х,заданного с клавиатуры.Если х число отрицательное, то выведите сообщение, что значение у не существует.
Ответы
Автор ответа:
0
var
y,x:real;
begin
write ('X = ');readln(x);
if x<0 then writeln ('Y does not exist') else begin
y:=sqrt(x);
writeln ('Y = ',y:0:4);
end;
readln;
end.
Интересные вопросы
Предмет: Немецкий язык,
автор: matveynasakin2008
Предмет: Биология,
автор: Max2008228
Предмет: Химия,
автор: SimpleHedgehog
Предмет: История,
автор: Алисарысвыфоа
Предмет: Химия,
автор: Rimaziroyan