Урок 13.1. Задача 4.
Primary tabs
Пользователь вводит числа до тех пор пока не введёт число меньшее 1. В ответ на каждое введённое им число выводите на экран все нечетные числа от 1 до это числа, при этом делящиеся на 5. Если же пользователь ввел число меньшее 1, то завершите программу.
var a, i : integer; begin repeat write('Enter an integer : '); readln(a); if (a > 0) then begin for i := 1 to a do begin if ((i mod 2) <> 0) and ((i mod 5) =0) then write(i, ' '); end; end; until (a < 1); read(); end.
- Log in to post comments
- 508 reads
vedro-compota
Wed, 05/18/2022 - 20:06
Permalink
(a > 0)
-- почему сравнение с 0, не с 1?
_____________
матфак вгу и остальная классика =)