Запишите на языке Паскаль программу решения задачи:Дана последовательность чисел 5,9,13,17,... . Определите число слагаемых, сумма которых равна 324

4 Фев 2020 в 19:40
203 +1
0
Ответы
1

program SumOfNumbers;

var
sum, i, num, count: integer;

begin
sum := 0;
i := 5;
count := 0;

while sum < 324 do
begin
sum := sum + i;
i := i + 4;
count := count + 1;
end;

writeln′Numberofterms:′,count'Number of terms: ', countNumberofterms:,count;
end.

18 Апр 2024 в 18:08
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Прямой эфир