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