Question

СРОЧНО!!!ДАЮ 40 БАЛЛОВ Напишите код для проекта в ЛАЗАРУС(object pascal) в котором можно вычислить количество двоцифровых чисел среди чисел, первое из которых равно 10, а каждое следующее больше предыдущего на заданое положительное число.(цикл с предусловием)

Answer 1

Ответ:

var x,k,a: integer;

begin

write('a = ');

readln(a);

x:=10;

k:=0 ;

while x<100 do

begin

k:=k+1;

x:=x+a

end;

writeln('k = ',k)

end.

Answer 2

Конечно, вот пример кода на языке программирования Lazarus (Object Pascal), который вычисляет количество двуцифровых чисел среди чисел, где первое число равно 10, а каждое следующее число больше предыдущего на заданное положительное число. Для этого мы используем цикл с предусловием:

pascalCopy code
program CountTwoDigitNumbers;
var
  firstNumber, increment, count, currentNumber: Integer;
begin
  // Введите начальное число (первое число)
  Write('Введите начальное число (первое число): ');
  Readln(firstNumber);

  // Введите положительное число, на которое увеличивается каждое следующее число
  Write('Введите положительное число, на которое увеличивается каждое следующее число: ');
  Readln(increment);

  // Инициализация счетчика
  count := 0;

  // Вычисление количества двуцифровых чисел
  currentNumber := firstNumber;
  while currentNumber < 100 do
  begin
    if (currentNumber >= 10) and (currentNumber <= 99) then
      Inc(count);

    // Увеличиваем текущее число на заданный инкремент
    Inc(currentNumber, increment);
  end;

  // Вывод результата
  WriteLn('Количество двуцифровых чисел: ', count);

  Readln;
end.

Программа запрашивает начальное число (первое число) и положительное число, на которое увеличивается каждое следующее число. Затем она использует цикл с предусловием для подсчета двуцифровых чисел и выводит результат.