Решение задачи 4 из главы 13.1
Primary tabs
Решение задачи 4 из главы 13.1
4. Пользователь вводит числа до тех пор пока не введёт число меньшее 1. В ответ на каждое введённое им число выводите на экран все нечетные числа от 1 до это числа, при этом делящиеся на 5. Если же пользователь ввел число меньшее 1, то завершите программу.
program Project1; var i, a: integer; begin repeat writeln('Vvedite zeloe chislo:'); readln(i); for a:=1 to i do if (((a mod 2) = 1) AND ((a mod 5) = 0)) then write(a,' '); writeln(); until (i<1); write('Konez programmy'); readln(); end.
- Log in to post comments
- 613 reads