Ответы
Ответ дал:
0
var a,s: integer;
i: byte;
begin
for i:=1 to 70 do begin
readln(a);
if a < 100 then s:=s + a;
end;
writeln(s);
end.
Вас заинтересует
2 года назад
7 лет назад
7 лет назад
8 лет назад