Ответы
Ответ дал:
0
var
a,b,c:integer;
begin
for a:=1 to 7 do
begin
readln(b);
c:=c+b;
end;
writeln('Сумма ',c);
end.
a,b,c:integer;
begin
for a:=1 to 7 do
begin
readln(b);
c:=c+b;
end;
writeln('Сумма ',c);
end.
Вас заинтересует
1 год назад
1 год назад
5 лет назад
8 лет назад
8 лет назад