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

obsharov7 obsharov7    3   01.03.2019 23:50    4

Ответы
slavka30 slavka30  23.05.2020 19:04

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика