Предмет: Информатика,
автор: NiKaEmpty
ИЗ ПРИМЕРА ЗАДАЧИ, КОТОРАЯ ВЫВОДИТ ВСЕ НАТУРАЛЬНЫЕ ЧИСЛА ОТ 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
Ответы
Автор ответа:
0
просто в Var добавь переменную b. получится Var i,n,b : integer.
Потом там где написано writeln(i,'') напиши b:=b+i;
И потом перед end. напиши write(b);
Потом там где написано writeln(i,'') напиши b:=b+i;
И потом перед end. напиши write(b);
Автор ответа:
1
Var i,n,s :integer
Begin
Writeln('Введите n');
readln(n);
s := 0;
for i:= 1 to n do
begin
s := s + i;
end;
write(s);
end.
Begin
Writeln('Введите n');
readln(n);
s := 0;
for i:= 1 to n do
begin
s := s + i;
end;
write(s);
end.
NiKaEmpty:
Мы не используем sum. Ко мне сразу возникнут вопросы(
Вот после второго begin, не понимаю что писать. Не подсчитывает(без sum)
s - это просто название переменной
после второго мы прибавляем к сумме следующее число
Спасибо большое и извините
После integer точку с запятой забыли, а так все хорошо
Интересные вопросы
Предмет: Українська література,
автор: corsanomi921
Предмет: Українська мова,
автор: darinabezik2
Предмет: Немецкий язык,
автор: ignatchenko9089
Предмет: Математика,
автор: HcAtlante
Предмет: Алгебра,
автор: katrinazagray