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.