Question

Дана последовательность чисел 10, 13,16 ... 34. Посчитайте сумму чисел и их количество.(паскаль с помощью циклов)

Answer 1

Ответ:

var n, summa, counter: integer;

begin

n := 10;

summa := 0;

counter := 0;

repeat

 counter:= counter + 1;

 summa := summa + n;

 n := n + 3;

until n > 36;

writeln('Сумма чисел = ',summa);

writeln('Количество чисел = ', counter);

end.