Ответы на вопрос:
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.
Популярно: Информатика
-
F9212055465123.03.2020 15:24
-
мальчуган212.12.2020 19:04
-
gordeevlogain228.10.2022 07:41
-
Valentina5427.05.2023 18:25
-
kategarkysha22.12.2021 03:45
-
rashantixaip13.06.2021 21:49
-
14sanka15.09.2020 04:22
-
Dancerebuclic201727.03.2021 06:55
-
terylevina115.04.2021 06:50
-
123arrem12.06.2022 05:01