ИЗ ПРИМЕРА ЗАДАЧИ, КОТОРАЯ ВЫВОДИТ ВСЕ НАТУРАЛЬНЫЕ ЧИСЛА ОТ 1 ДО n:
Program pr;
Var i,n :integer
Begin
Writeln('Введите n');
readln(n);
for i:= 1 to n do
begin
writeln(i,' ');
end;
end.
НАПИШИТЕ ПРОГРАММУ, КОТОРАЯ ПОДСЧИТЫВАЕТ СУММУ НАТУРАЛЬНЫХ ЧИСЕЛ ОТ 1 до N
Program pr;
Var i,n :integer
Begin
Writeln('Введите n');
readln(n);
for i:= 1 to n do
begin
writeln(i,' ');
end;
end.
НАПИШИТЕ ПРОГРАММУ, КОТОРАЯ ПОДСЧИТЫВАЕТ СУММУ НАТУРАЛЬНЫХ ЧИСЕЛ ОТ 1 до N
More Questions From This User See All
Answers & Comments
Потом там где написано writeln(i,'') напиши b:=b+i;
И потом перед end. напиши write(b);
Begin
Writeln('Введите n');
readln(n);
s := 0;
for i:= 1 to n do
begin
s := s + i;
end;
write(s);
end.