Question

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

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

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

Answer 1

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