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

Question

Информатика

Дорофей

14 апреля, 07:14

В числовой последовательности вводимость клавиатуры, вычислить количество чисел кратных 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.