Вопрос от посетителя:
дана последовательность целых чисел x1 x2 xn и натуральное n получить последовательность чисел кратных 3 и не кратных 5
Илюха отвечает:
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.