49

Дана последовательность целых чисел x1 x2 xn и натуральное n получить…

25 августа 2022

Дана последовательность целых чисел x1 x2 xn и натуральное n получить последовательность чисел кратных 3 и не кратных 5 заранееспасибо)

категория: информатика



43

var i,n,a: integer; begin readln (n); for i: =1 to n dobegin read (a); if (a mod 3=0) and (a mod 5>0) then write (a,'); end; writeln; end.

Знаете ответ?


Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...