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