Написать программу вычисления у=1/х для Pascal.

Вопрос школьника по предмету Информатика

Написать программу вычисления у=1/х для Pascal.

Ответ учителя по предмету Информатика

Ответ:

var x,y : real;

begin

readLn(x);

if(x <> 0) then

begin

y := 1/x;

writeLn(«y=», y);

end

else

writeLn(«функция не существует»);

end.

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *

Похожие вопросы от пользователей