Вывести на экран все числа в промежутке от 1 до n. которые делятся на 2,3 и 5

Military47 Military47    1   13.07.2019 11:00    1

Ответы
kajaiuw kajaiuw  03.10.2020 02:51
Var
 i,n:integer;
begin
 read(n);
 for i := 1 to n do
   if (i mod 2) * (i mod 3) * (i mod 5) = 0 then
   write(i,' ')
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика