Вывести на экран все числа делящиеся на 3 или на 7 в промежутке от 1 до 1000
Вывести на экран все числа делящиеся на 3 или на 7 в промежутке от 1 до 1000
Гость
Ответ(ы) на вопрос:
Гостьvar i:integer; begin for i:=1 to 1000 do if (i mod 3=0) or (i mod 7=0) then write(i); end.
Не нашли ответ?
Похожие вопросы