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

Question

Информатика

Нила

16 августа, 21:14

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

+5

Ответы (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.