Задача 4 урок 13.1
Primary tabs
http://fkn.ktu10.com/?q=node/8697
{Пользователь вводит числа до тех пор пока не введёт число меньшее 1.
В ответ на каждое введённое им число выводите на экран все нечетные числа от 1 до это числа,
при этом делящиеся на 5.
Если же пользователь ввел число меньшее 1, то завершите программу.}
program task4_lesson13_1; var i, j : integer; begin repeat writeln('Enter number more then 1'); readln(i); for j := 1 to i do if (((j mod 5) = 0) and ((j mod 2) = 1)) then writeln('Otvet: ', j); until (i < 1); readln(); end.
- Log in to post comments
- 594 reads