Question

Написать программу Паскаль Известно, что среди двузначных чисел есть те, у которых сумма цифр не превосходит 27. Найдите эти числа.

Answer 1

var

 n, a, i, cnt: Integer;

 

begin

   cnt := 0;

   Write('Введите кол-во чисел: ');

   Read(n);

   Write('Введите двузначные числа: ');

   

   for i := 1 to n do begin

       Read(a);

       if a mod 10 + a div 10 <= 27 then

           Inc(cnt)

   end;

   

   Write('Кол-во чисел, сумма цифр которых не превышает 27: ', cnt)

end.  

Answer 2

Для решения данной задачи воспользуемся программированием на языке Pascal. Ниже приведен код, который найдет все двузначные числа, у которых сумма цифр не превосходит 27:

program FindNumbers;

var
  num, digit1, digit2, sum: integer;

begin
  // Перебираем все двузначные числа
  for num := 10 to 99 do
  begin
    // Вычисляем первую и вторую цифры числа
    digit1 := num div 10;
    digit2 := num mod 10;
    
    // Суммируем цифры числа
    sum := digit1 + digit2;
    
    // Проверяем, не превосходит ли сумма цифр значение 27
    if sum <= 27 then
    begin
      // Выводим числа, удовлетворяющие условию
      writeln(num);
    end;
  end;
end.

После запуска программы, на экране будут выведены все двузначные числа, у которых сумма цифр не превосходит 27.