Задача с циклом пока и до: программа паскаль Вычислить сумму первых 10 натуральных чисел?

Question

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

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

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

Answer 1

Var a,x:integer;
begin
a:=0;
while a<=10 do<br>begin
a:=a+1;
x:=x+a;
end;
writeln(x);
end.