var s, k:integer;
begin
s:= 1;
for k:= 1 to 7 do
s:= s + k;
writeln (s);
end.
Какой ответ?

Вопрос школьника по предмету Информатика

var s, k:integer;
begin
s:= 1;
for k:= 1 to 7 do
s:= s + k;
writeln (s);
end.
Какой ответ?

Ответ учителя по предмету Информатика

Ответ 29

======================