АТ
Анатолий Тарасенков
как решается? не могу понять
Определите, что будет напечатано в результате работы следующего фрагмента программы:
var k, s: integer;
begin
s:=4;
k:=8;
while k < 420 do begin
s := s + k;
k:=k+2;
end;
write(s);
end.