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

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

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

Решение:

program u13z04;
var i,j: integer;
begin
  i:=1;
  while i>=1 do
  begin
    writeln('vvedite chislo');
    readln(i);
    j:=1;
    while j<=i do
    begin
      if (j mod 2 = 1)and(j mod 5 = 0) then
        writeln(j);
        j:=j+1;
    end;
  end;
  readln();
end.

Консоль:

vvedite chislo
15
5
15
vvedite chislo
35
5
15
25
35
vvedite chislo
20
5
15
vvedite chislo