Срочнл решиие 1 номер пожалуйста

Question

Срочнл решиие 1 номер пожалуйста

---

Answer 1

Я же тебе уже решил, 
Var a,b,c,y,x:real;
begin
writeln('ВВЕДИТЕ ЗНАЧЕНИЕ x:',x);
readln(x);
a:=5;
b:=3;
c:=1;
y:=a*cos(b*x)+c;
writeln('y=',y);
end.

Comments

не правильно

---

все тут правильно, что пишет программа?

---

программа не чего не аишет, а цчитель говарит не правильно

---

вы паскаль изучаете или что?

---

да

---

ты вообще запускал(а) его на компьютере? если да, то что было написано при компиляции

Answer 2

Var x: real;
begin
     readln(x);
     writeln(5 * cos(3 * x) + 1);
end.

Контрольные числа совпадают