
Бажен
6 год назад
1) Составить программу вывода на экран первых 10 натуральных чисел
2) Составить программу вычисления суммы N первых чисел
В Pascal
ОТВЕТЫ

Ermolaevich
Jun 29, 2019
var i,summ:integer;
begin
summ:=0;
for i:=1 to 10 do begin write(i+ ); summ:=summ+i; end;
writeln;
writeln(сумма первых десяти натуральных чисел =,summ);
end.
Пример работы:
1 2 3 4 5 6 7 8 9 10 сумма первых десяти натуральных чисел =55
begin
summ:=0;
for i:=1 to 10 do begin write(i+ ); summ:=summ+i; end;
writeln;
writeln(сумма первых десяти натуральных чисел =,summ);
end.
Пример работы:
1 2 3 4 5 6 7 8 9 10 сумма первых десяти натуральных чисел =55
41
Смежные вопросы: