Найти сумму целых положительных четных чисел, вводимых с клавиатуры. Технические условия. Количество чисел N, которые будут введены с клавиатуры,задают в начале программы (4 меньше N меньше 20).
Найти сумму целых положительных четных чисел, вводимых с клавиатуры. Технические условия. Количество чисел N, которые будут введены с клавиатуры,задают в начале программы (4
Гость
Гость
Ответ(ы) на вопрос:
Гостьесли я правильно понял то, 6.8.10.12.14.16.18
Гостьprogram z1;var n, a, i, s:integer;beginread(n); s:=0;for i:=1 to n do beginread(a); if (a>0) and (a mod 2=0) then s:=s+a;end;write(s);end.
Не нашли ответ?
Похожие вопросы