Помогите отредактировать программу!!! Найдите сумму первых 12 членов ариф.прогрессии,...

Question

Помогите отредактировать программу!!!
Найдите сумму первых 12 членов ариф.прогрессии, заданной формулой а=7-3*n.

Comments

Вот сама программа.

---

Program c1;

---

var i,a,n,z,s:real;beginwrite('n=');readln(n);a:=7-3*1;z:=7-3*n;s:((a+z)*n)/2;writeln('s=',s);end.

---

выходит большое странное число

Answer 1

Ответ: -150
У Вас ошибка в присвоении переменной s (отсутствует знак '=')

var i,a,n,z,s:real; 
begin 
write('n=');readln(n); 
a:=7-3*1; 
z:=7-3*n; 
s:=((a+z)*n)/2; 
writeln('s=',s); 
end.