Вывести все целые числа из диапазона от А до В, кратные 3 - Pascal ABC
Формулировка задачи:
с помощью 1)цикл while
2)repeat until
Решение задачи: «Вывести все целые числа из диапазона от А до В, кратные 3»
textual
Листинг программы
- i:=a;
- while i<=b do
- begin
- if i mod 3=0 then write(i,' ');
- i:=i+1;
- end;
Объяснение кода листинга программы
- Переменная
iустанавливается равной переменнойa. - Запускается цикл
while, который будет выполняться до тех пор, пока значение переменнойiне станет больше или равно значению переменнойb. - Внутри цикла проверяется условие
if i mod 3=0(если значение переменнойiделится на 3 без остатка). - Если условие истинно, то значение переменной
iзаписывается в файл (или выводится на экран) с пробелом после него. - Значение переменной
iувеличивается на 1. - Цикл повторяется, пока значение переменной
iне станет больше или равно значению переменнойb.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
