Question

Определите что будет напечатано в результате работы следующего фрагмента программы:
1) Var k,s: integer
begin
s:=0
k:=0
while k<20 do begin
s:=s+k;
k:=k+5;
end;
write(s);
end.

2) Var k,s: integer
begin
s:=0
k:=0
while k<34 do begin
s:=s+2*k
k:=k+2
end;
write(s);
end.

3) Var k,s: integer
begin
s:=0
k:=0
while k<28 do begin
s:=s+k;
k:=k+4;
end;
write(s);
end.