Литература Русский язык Английский язык Математика Информатика Физика Химия Биология География История
гдз

Вычислить сумму натурального ряда чисел от 1 до N

Вычислить сумму натурального ряда чисел от 1 до N.

Решение

Программа будет включать в себя решение этой задачи с использованием цикла While.

Program Natur;

Var a, Summa: integer;

begin

write (‘N=’); readln (N);

{Цикл с предусловием}

a:=1; Summa:= 0;

while a<=N do

begin

Summa:= Summa+a;

a:= a+1;

end;

end.

4953

Комментарии  

 
0 Slavik 7 апреля 2013, 22:35
А мне программа не показалась прям уж такой легкой. Во-первых я подзабыл, какие числа называются натуральными)) а во-вторых, я не очень хорошо разбираюсь в синтаксисе паскаля, поэтому не всегда понимаю что нужно писать.
Ответить Ссылка
 
 
0 Pheonix 30 марта 2013, 16:18
Спасибо за решение. Хотя действительно эту задачу можно было решить намного легче с помощью цикла for. Хотя и с помощью while довольно легко все делать.
Ответить Ссылка
 
 
0 Portos 13 марта 2013, 18:01
Задачу можно несколько легче решить с помощью цикла For, код получится несколько короче и быстрее. Но и этот способ тоже неплох. Я думаю что многим он поможет на информатике
Ответить Ссылка
 
 
0 Skyfire 9 марта 2013, 11:04
Очень легкая задача. Такую программу сейчас наверное может написать на паскале даже ученик 7 класса. Думаю, что в школе нужно учить что то сложнее, чем паскаль, например С++.
Ответить Ссылка