Ответы
Ответ дал:
0
var n,s,i:integer;
begin
readln(n);
s:=0;
for i:=1 to n do
s:=s+i;
writeln(s)
end.
begin
readln(n);
s:=0;
for i:=1 to n do
s:=s+i;
writeln(s)
end.
Ответ дал:
0
=) я не успел написать что в С++, но спасибо все равно)
Вас заинтересует
2 года назад
2 года назад
8 лет назад
8 лет назад
10 лет назад