Помогитеvar k,s :integer;begins:=0k:=0while k <30 do begink:=k+3;s:=s+k;end;write(s);end.

Question

Помогите
var k,s :integer;
begin
s:=0
k:=0
while k <30 do begin<br>k:=k+3;
s:=s+k;
end;
write(s);
end.

Answer 1

А с чем помочь-то надо?