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

Question

Информатика

Геннадий

24 февраля, 22:33

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

+2

Ответы (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.