Вычислить значение выражения

@atikam · Регистрация: 25.10.2018

Author24 — интернет-сервис помощи студентам

Нужна помощь!
Что здесь не так? Не может запустить. Создаю на Android.

Pascal

program chet;
var a,b,c,d:Real;
begin
writeln ('Введите');
read (a,b,c);
d:= a+50*(1-(1/10^((a-b)/600)+1));
Write(d);
end.

@ZX Spectrum-128 · 25.10.2018, 18:55

Pascal

1	d:= a+50*(1-(1/10^((a-b)/600)+1));

Нет в Паскале операции возведения в степень (^).
Наберите в редакторе формулу.

Добавлено через 1 минуту

Сообщение от ZX Spectrum-128

Нет в Паскале

Ух-ты. В pabc.net есть, оказывается

Pascal

program chet;
 
var
  a, b, c, d: Real;
 
begin
  writeln('Введите');
  read(a, b, c);
  d := a + 50 * (1 - (1 / 10 ** ((a - b) / 600) + 1));
  Write(d);
end.

	25.10.2018, 18:55

Вычислить значение выражения

Решение