• Введите с клавиатуры 8 положительных целых чисел. Определите, сколько из них делятся на 3 и при этом заканчиваются на 4. Программа должна вывести одно число: количество чисел, кратных 3 и оканчивающихся на 4.

Ответы 1

  • var numb,count,k:integer;beginfor k:= 1 to 8 dobeginreadln(numb);if (numb mod 10 = 4) and (numb mod 3 = 0) thencount:=count+1;end;writeln(count);end.
    • Автор:

      shane300
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

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

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

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