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