• напишите программу, которая в последовательности натуральных чисел определяет количество чисел ,кратных 3 и оканчивающихся на 2.Программа получает на вход количество чисел в последовательности,а затем сами числа.Количество чисел не превышает 1000.Введенные числа по модулю не превышают 30 000.Программа должна вывести одно число:количество чисел,кратных 3 и оканчивающихся на 2.

Ответы 1

  •  var a,k,n,i:integer;begink:=0; writeln('Enter sequence size:'); readln(n); for i:=1 to n do  begin;   readln(a);    if (a mod 3=0) and (a mod 10=2) then k:=k+1;  end;writeln('Number of accepted:',k);end.
    • Автор:

      zoeaziy
    • 2 года назад
    • 5
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years