Question

Программа Паскаль: которая ищет минимальное число, больше 21, которое делится на 7 и оканчивается на 1.

Answer 1

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var n:=21;
  repeat
    n+=1
  until (n mod 7=0) and (n mod 10=1);
  n.Println
end.

Результат
91

Answer 2

Конечно, вот пример программы на языке Паскаль, которая ищет минимальное число, больше 21, которое делится на 7 и оканчивается на 1:

pascalCopy code
program FindNumber;

var
  number: integer;

begin
  number := 22; // начинаем с числа, большего 21
  
  while (number mod 7 <> 0) or (number mod 10 <> 1) do
  begin
    number := number + 1;
  end;
  
  writeln('Минимальное число, больше 21, которое делится на 7 и оканчивается на 1: ', number);
end.

Эта программа начинает с числа 22 и увеличивает его на 1 до тех пор, пока не найдет число, которое делится на 7 и оканчивается на 1. Как только такое число найдено, программа выводит его на экран.