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

Question

Информатика

Сюта

1 июня, 02:31

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

+3

Ответы (1)

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

Эраст · Answer 1

var

i, n, a:integer;

begin

readln (n) ;

for i:=1 to n do

begin

read (a) ;

if (a mod 3=0) and (a mod 5>0) then write (a,' ') ;

end;

writeln;

end.