Предмет: Информатика,
автор: 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.
Интересные вопросы
Предмет: Другие предметы,
автор: amirakusesova
Предмет: Русский язык,
автор: ssahzoda786
Предмет: Математика,
автор: kozbakovasofia9
Предмет: Химия,
автор: diman4eeg