Напишите программу, которая в последовательности натуральных - вопрос №6732111 от Ивангаййййййййй 24.02.2021 14:50

Question

Информатика: Напишите программу, которая в последовательности натуральных чисел определяет количество чисел ,кратных 6 и оканчивающихся на 2.программа получает на вход количество чисел в последовательности,а затем сами числа.количество чисел не превышает 100.введенные числа по модулю не превышают 300.программа должна вывести одно число: количество чисел,кратных 6 и оканчивающихся на 2.

Ивангаййййййййй · Answer

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....