Урок 13.1 Задача 4
Primary tabs
Пользователь вводит числа до тех пор пока не введёт число меньшее 1. В ответ на каждое введённое им число выводите на экран все нечетные числа от 1 до это числа, при этом делящиеся на 5. Если же пользователь ввел число меньшее 1, то завершите программу.
Решение :
var s, k : integer; begin repeat writeln('Введите целое число '); readln(s); if (s > 1) then begin for k := 1 to s do begin if ((k mod 2) <> 0) and ((k mod 5) =0) then writeln(k, ' '); end; end; until (s < 1); readln(); end.
- Log in to post comments
- 505 reads
vedro-compota
Tue, 06/07/2022 - 19:57
Permalink
засчитано
засчитано
_____________
матфак вгу и остальная классика =)