Question

Написать программу, которая находит количество чисел, в которых 1-ая цифра больше 2-ой в промежутке 10;99(через for) паскаль

Answer 1

Ответ:

program Chernovik;

var i,k:integer;

begin

k:=0;

for i:=10 to 99 do

if i div 10 > i mod 10 then k:=k+1;

writeln(k);

end.

Объяснение:

div - целочисленное деление

mod - остаток от целочисленного деления

i div 10 - первая цифра числа

i mod 10 - вторая цифра числа

Перебираем в цикле числа и сравниваем первую и вторую цифры

Answer 2

Вот пример программы на Pascal, которая находит количество чисел, в которых первая цифра больше второй в промежутке от 10 до 99, используя цикл for:

pascalCopy code
program CountNumbers;

var
  count: integer;

begin
  count := 0;

  for var i := 10 to 99 do
  begin
    // Извлекаем первую и вторую цифры числа
    var firstDigit := i div 10;
    var secondDigit := i mod 10;

    // Проверяем условие: первая цифра больше второй
    if firstDigit > secondDigit then
      count := count + 1;
  end;

  writeln('Количество чисел, где первая цифра больше второй: ', count);
end.

Эта программа начинает с числа 10 и перебирает числа до 99 включительно. Для каждого числа она извлекает первую и вторую цифры, затем проверяет условие, и если оно выполняется, увеличивает счетчик. В конце программа выводит количество таких чисел.