Дана последовательность целых чисел x1 x2 xn и натуральное n получить…

Question

69

Дана последовательность целых чисел x1 x2 xn и натуральное n получить последовательность чисел кратных 3 и не кратных 5

в избранное ссылка

Знаете ответ?

atlantika · Accepted Answer

43

atlantika

14 апреля 2023

var i,n,a: integer; begin readln (n); for i: =1 to n dobegin read (a); if (a mod 3=0) and (a mod 5>0) then write (a,'); end; writeln; end.

комментировать

в избранное ссылка отблагодарить