Вывести на экран все числа в промежутке от 1 до n. Которые делятся на 2,3 и 5
Вывести на экран все числа в промежутке от 1 до n. Которые делятся на 2,3 и 5
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы