Mumeena
7 год назад
Напишите программу, которая в последовательности натуральных чисел определяет количество чисел ,кратных 6 и оканчивающихся на 2.Программа получает на вход количество чисел в последовательности,а затем сами числа.Количество чисел не превышает 100.Введенные числа по модулю не превышают 300.Программа должна вывести одно число:количество чисел,кратных 6 и оканчивающихся на 2.
ОТВЕТЫ
Хрисанф
Jul 9, 2019
Var
n,k,i,t:integer;
begin
Read(n);
k:=0;
for i:=1 to n do begin
Read(t);
if (t mod 6=0) and (t mod 10=2) then Inc(k)
end;
Writeln(k)
end.
n,k,i,t:integer;
begin
Read(n);
k:=0;
for i:=1 to n do begin
Read(t);
if (t mod 6=0) and (t mod 10=2) then Inc(k)
end;
Writeln(k)
end.
175
Смежные вопросы:
