Урок 13.1 Задача 4
Primary tabs
Пользователь вводит числа до тех пор пока не введёт число меньшее 1. В ответ на каждое введённое им число выводите на экран все нечетные числа от 1 до это числа, при этом делящиеся на 5. Если же пользователь ввел число меньшее 1, то завершите программу.
var n, i: integer; begin while (1=1) do // делаем бесконечный цикл begin // начало тела внешнего цикла write('Введите число: '); readln(n); // считываем число, введенное пользователем if n >=1 then // условие на ввод пользователем числа не меньше единицы begin for i:=1 to n do // вложенный цикл, верхняя граница - введенное пользователем число begin if (i mod 2 = 1) and (i mod 5 = 0) then //условие - нечетные, делятся на 5 write(i, ' '); //выводим значения счетчика вложенного цикла, отвечающие условию end; writeln(); end else // пользователь ввел число меньше единицы break; // прерываем цикл end; // конец тела внешнего цикла writeln('Программа завершена'); // сообщение появится только, когда цикл будет прерван, т.е. когда пользователь введет число меньше единицы readln(); end.
Вывод в консоли:
Введите число: 64
5 15 25 35 45 55
Введите число: 12
5
Введите число: 6
5
Введите число: 0
Программа завершена
- Log in to post comments
- 245 reads