Проверьте программу ! var s: real; a,b,c: longint; - вопрос №03121253836 от forgalaxynexusp09txz 03.08.2022 05:34

Question

Информатика: Проверьте программу ! 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.

forgalaxynexusp09txz · Answer

Не знаю, что она на самом деле должна делать, но:

с^2 неправильно, для возведения в квадрат надо sqr (c)

И в этих четырех строках

S:=S+(a/b+c^2)
a:=a+3
b:=1
c:=c+1

нет точки с запятой.

Проверьте программу ! 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.