Question

Определить максимальное трёхзначное целое число, которое нацело делится на 21. Вывести значения: делимое число, остаток от деления на 21 и целое частное для каждого шага алгоритма. Отдельной строкой вывести ответ. написать прогу в паскале

Answer 1

Program X;

var
max, i: longint;

begin

 max:=0;

for i := 100 to 999 do
  begin
    writeln('Делимое: ', i , ' Остаток: ' , i mod 21, ' Целое частное: ' , i div 21 );
    if (i mod 21) = 0 then max := i
  end;

writeln('Ответ: ', max)
end.

Answer 2

Конечно! Вот пример программы на языке Паскаль, который определяет максимальное трехзначное целое число, которое делится на 21:

pascalCopy code
program MaxDivisibleBy21;

var
  number: integer;

begin
  number := 999;

  while (number >= 100) do
  begin
    if (number mod 21 = 0) then
    begin
      writeln('Делимое число: ', number);
      writeln('Остаток от деления на 21: ', number mod 21);
      writeln('Целое частное: ', number div 21);
      break;
    end;
    number := number - 1;
  end;

  writeln('Максимальное трехзначное число, которое делится на 21: ', number);
end.

Программа начинает с числа 999 и проверяет, делится ли оно нацело на 21. Если делится, то выводятся значения делимого числа, остатка от деления и целого частного, и программа завершается. Если число не делится на 21, оно уменьшается на 1, и процесс повторяется. Когда будет найдено первое трехзначное число, которое делится на 21, программа выводит его значение.

Примечание: Язык Паскаль предполагает, что вывод осуществляется в консольном окне.