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