Проверьте программу пжлста!
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.
Не знаю, что она на самом деле должна делать, но:
с^2 неправильно, для возведения в квадрат надо sqr (c)
И в этих четырех строках
<span>S:=S+(a/b+c^2)</span><span>a:=a+3</span><span>b:=1</span><span>c:=c+1</span>
<span>нет точки с запятой.</span>
===== PascalABC.NET =====
begin
var s:= ReadlnString;
s.Substring(0,s.Length div 2).Println
end.