Question

помогите, пожалуйста со 2 номером​

Answer 1

Ответ:

Объяснение:

program Number2;

 

var

   n, n1, n2 : integer;

 

begin

   repeat

       Write('input 2-digit n: ');

       ReadLn(n);

   until (n > 9) and (n < 100);

   n2 := n mod 10;

   n1 := n div 10;

   if n1 <5 then WriteLn ('N1 is lower than 5');

   if n2 <5 then WriteLn ('N2 is lower than 5');

end.