Question

HELP.PROGRAM Pascal оператор с предусловием. Найти количество трехзначных чисел в котором хот одна цифра больше 7.

Answer 1

begin

 var Count := 0;

 var i := 100;

 while i < 1000 do

 begin

   if (i mod 10 > 7) or

     (i div 10 mod 10 > 7) or

     (i div 100 > 7) then  

     Count += 1;

   i += 1

 end;

 Print(Count)

end.