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