Задача с циклом пока и до:

программа паскаль

Вычислить сумму первых 10 натуральных чисел?

1

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

2014-03-01T16:53:51+00:00
Var a,x:integer;
begin
a:=0;
while a<=10 do
begin
a:=a+1;
x:=x+a;
end;
writeln(x);
end.