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.
Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.