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