В числовой последовательности вводимость клавиатуры, вычислить количество чисел кратных 6

Question

Информатика

Никон

15 июня, 17:25

В числовой последовательности вводимость клавиатуры, вычислить количество чисел кратных 6

+1

Ответы (1)

Знаете ответ?

Азар · Answer 1

Program vv;

var n, a, i, s:integer;

begin

write ('введите количество элементов последовательности ') ;

read (n) ;

s:=0;

for i:=1 to n do

begin

if a mod 6=0 then s:=s+1;

end;

write ('сумма равна', s) ;

end.