Вычислить значение выражения - 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.

ИИ для рефератов и докладов

  • Экспорт Word по ГОСТу
  • Минимум 80% уникальности текста
  • Поиск релевантных источников в интернете
  • Готовый документ за 2 минуты

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

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