Написать программу, которая находит сумму четных чисел до ввода цифры 0.

105

230

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

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

werer1973

Информатика

4,5(95 оценок)

Pascal unit math; // имя модуля должно совпадать с именем файла interface const n = 20; type mas = array [1..n] of integer; function f(a : mas) : integer; implementation function f(a : mas) : integer; var i,s : integer; begin s : = 0; for i : = 1 to n do s : = s + a[i]; result : = s; end; end.