Проверьте программу пжлста! varS:real;a,b,c:longint;beginS:=0;a:=3;b:=1;c:=2;while (a меньше =30) dobeginS:=S+(a/b+c^2)a:=a+3b:=1c:=c+1end;writeln(S);end.
Проверьте программу пжлста!
var
S:real;
a,b,c:longint;
begin
S:=0;
a:=3;
b:=1;
c:=2;
while (a<=30) do
begin
S:=S+(a/b+c^2)
a:=a+3
b:=1
c:=c+1
end;
writeln(S);
end.
Гость
Ответ(ы) на вопрос:
ГостьНе знаю, что она на самом деле должна делать, но: с^2 неправильно, для возведения в квадрат надо sqr (c) И в этих четырех строках S:=S+(a/b+c^2)
a:=a+3
b:=1
c:=c+1 нет точки с запятой.
Не нашли ответ?
Похожие вопросы