Напишите пожалуйста программу с помщью Паскаля:Дана последовательность 5 9 13 17 21 25 29 33 37 41 45 49. Составьте программу для подсчета числа слагаемых сумма которых равна 324

Question

Напишите пожалуйста программу с помщью Паскаля:Дана последовательность 5 9 13 17 21 25 29 33 37 41 45 49. Составьте программу для подсчета числа слагаемых сумма которых равна 324

Гость

Ответ(ы) на вопрос:

Accepted Answer

var sum, i: integer; begin sum := 5; i := 1; while (sum < 324) do begin sum := sum + 4; i := i + 1; end; writeln ('Слогаемых: '); write (i); end.