Урок 13.1 Задача 4

Урок 13.1 Задача 4

Пользователь вводит числа до тех пор пока не введёт число меньшее 1. В ответ на каждое введённое им число выводите на экран все нечетные числа от 1 до это числа, при этом делящиеся на 5. Если же пользователь ввел число меньшее 1, то завершите программу.

Решение :

var s, k : integer;

begin
  repeat
    writeln('Введите целое число ');
    readln(s);
    if (s > 1) then
    begin
        for k := 1 to s do
          begin
            if ((k mod 2) <> 0) and ((k mod 5) =0) then
              writeln(k, ' ');
          end;
    end;
  until (s < 1);
  readln();
end.