Определить количество четных чисел, введенных до ввода числа, кратного k - Turbo Pascal
Формулировка задачи:
Вводятся произвольные целые числа. Определить:
а) количество четных чисел, введенных до ввода числа, кратного k;
б) сумму первых k положительных чисел.
Решение задачи: «Определить количество четных чисел, введенных до ввода числа, кратного k»
textual
Листинг программы
sum:=0; readln(k); for i:=1 to k do begin readln(a); if a>0 then sum:=sum+a; end;
Объяснение кода листинга программы
- Переменная
sum
инициализируется значением 0. - Пользователю предлагается ввести значение переменной
k
. - В цикле
for
переменнаяi
принимает значения от 1 доk
. - Для каждого значения
i
выполняется следующая часть цикла:- Пользователю предлагается ввести значение переменной
a
. - Если значение
a
больше 0, то к переменнойsum
прибавляется значениеa
.
- Пользователю предлагается ввести значение переменной
- Цикл завершается, когда значение переменной
i
становится равным значению переменнойk
. - Выводится значение переменной
sum
, которое представляет собой количество четных чисел, введенных до ввода числа, кратногоk
.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д