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