дана последовательность целых чисел x1 x2 xn и натуральное n получить последовательность чисел кратных 3 и не кратных 5 заранее спасибо)
Ответы
Ответ дал:
0
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.
Похожие вопросы
2 года назад
7 лет назад
7 лет назад
10 лет назад
10 лет назад
10 лет назад
10 лет назад