Учеба и наука

• Всего ответов: 1


Наталья
628-й в
22 отзыва
var
i, x, sum:integer;

begin
  sum:=0;
  for i:=1 to 10 do
  begin
    readln(x);
    sum:=sum+x;
  end;
  writeln(sum);
end.
апрель 29, 2015 г.

Похожие вопросы