Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Вывести на экран все числа в промежутке от 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.