krikunnik
16.04.2022 18:35

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

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Эвелина123412
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.

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота