Ввести с клавиатуры несколько чисел, вычислить сумму чисел оканчивающихся на 4 pascal

Question

Информатика

Аксюта

30 марта, 02:26

Ввести с клавиатуры несколько чисел, вычислить сумму чисел оканчивающихся на 4 pascal

+3

Ответы (1)

Знаете ответ на вопрос?

Эма · Answer 1

Var n, i, a, s:integer;

begin

writeln ('Количество чисел = ') ;

readln (n) ;

for i:=1 to n do

begin

readln (a) ;

if abs (a) mod 10=4 then s:=s+a;

end;

writeln ('s = ', s) ;

end.

Пример:

Количество чисел = 5

156

-654

301

104

972

s = - 550