Составьте программу. С клавиатуры вводится 15 чисел, сколько из них оканчивается на 4

Question

Информатика

Сильва

17 сентября, 12:20

Составьте программу. С клавиатуры вводится 15 чисел, сколько из них оканчивается на 4

+1

Ответы (1)

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

Евгения · Answer 1

Var

A:integer;

k, n:integer;

Begin

Write ('Введите 15 чисел: ') ;

k:=0;

For n: = 1 to 15 do

Begin

Read (A) ;

if Abs (A) mod 10 = 4 then k:=k+1

End;

WriteLn ('Количество чисел, оканчивающихся на 4: ', k) ;

End.