Дана последовательность целых чисел x1 x2 xn и натуральное n получить последовательность чисел кратных 3 и не кратных 5
Дана последовательность целых чисел 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.
Не нашли ответ?
Похожие вопросы