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