Вычислить значение выражения - Free Pascal (227)

Узнай цену своей работы

Формулировка задачи:

Помогите пожалуйста составить программу

Решение задачи: «Вычислить значение выражения»

textual
Листинг программы 
var
 x,y:real;
begin
readln(x);
if x>13 then
 y:=x+8
else
 if x<=10 then
  y:=exp(x)+1
 else
  y:=2*x*x;
writeln(y);
end.

ИИ поможет Вам:

  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

13   голосов , оценка 4.077 из 5