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