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