Используя цыкл "пока" найти сумму первых 10 натуральных чисел.

1
нуууу помогитеее плиииззз

Ответы и объяснения

2014-04-14T13:16:30+00:00
Program i132;
var
  x:integer;
begin
  x:=0;
  k:=0;
  while x<=10 do
     begin
          x:=x+1;
          k:=k+x;
      end;
  writeln(k);
end.