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

1

Ответы и объяснения

Лучший Ответ!
2011-12-15T22:01:29+04:00

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.