Информатика: Дано n чисел. найти сумму четных чисел. паскаль. через mod

Nerror

24.03.2021 00:12

Информатика

Есть ответ 👍

Дано n чисел. найти сумму четных чисел. паскаль. через mod

220

358

Посмотреть ответы 2

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

gjhjcznrj

Информатика

4,6(20 оценок)

Program chet; uses crt; var n, a, b, c: integer; begin a: =0; write('сколько чисел будем вводить? '); readln(n); for b: =1 to n do begin write('введите число номер ', b, ': '); readln(c); if c mod 2 = 0 then begin write(' - это чётное число, берём его! '); a: =a+c; writeln('текущая сумма равна ', a); end end; writeln(''); write('итоговая сумма чётных чисел: ', a); readln; end.