Составить программу (while) вывода на печать суммы чисел от 1 до 10.
Составить программу (while) вывода на печать суммы чисел от 1 до 10.
Гость
Ответ(ы) на вопрос:
Гостьvar
a,s:integer;
begin
a:=1;
While a<=10 do
begin
s:=s+a;
a:=a+1;
end;
writeln(s);
end.
Не нашли ответ?
Похожие вопросы