Задание:
Написать программу, которая вычисляет сумму первых n целых положительных чисел. Количество суммируемых чисел должно вводиться во время работы программы. Написать ее с помощью цикла for… to… do…
Решение:
var c,a,n,i: longint; beginread (n); read (a); c: =a; for i: =2 to n dobeginread (a); c: =c+a; end; write (c); end.
Знаете другой ответ?