Задача 4 Урок 13.1
Primary tabs
{13.1 — 4 Пользователь вводит числа до тех пор пока не введёт число меньшее 1.
В ответ на каждое введённое им число выводите на экран все нечетные числа от 1 до это числа,
при этом делящиеся на 5. Если же пользователь ввел число меньшее 1, то завершите программу.}
var a,i: integer; begin repeat begin writeln('write integer num '); read(a); for i:=1 to a do if (i mod 5 = 0) then write(i, ' '); writeln(); end; until (a < 0) ; writeln('over'); readln(); readln(); end.
//write integer num //22 //5 10 15 20 //write integer num //3 // //write integer num //-1 // //over
- Log in to post comments
- 848 reads