Урок 13.1 Задача 4
Primary tabs
Пользователь вводит числа до тех пор пока не введёт число меньшее 1. В ответ на каждое введённое им число выводите на экран все нечетные числа от 1 до это числа, при этом делящиеся на 5. Если же пользователь ввел число меньшее 1, то завершите программу.
var i: integer; begin i:=1; repeat readln(i); writeln(); while i>0 do begin if (((i mod 2)<>0) and ((i mod 5)=0)) then writeln(i); i:=i-1; end; writeln(); i:=1; until (i<1); readln(); end.
- Log in to post comments
- 388 reads