Предмет: Информатика,
автор: bigmen
дана последовательность целых чисел 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.
Интересные вопросы
Предмет: Английский язык,
автор: dennagieff
Предмет: История,
автор: masha20055002
Предмет: Английский язык,
автор: semenmelentev2018
Предмет: Химия,
автор: diman4eeg