Question

Пожалуйста СРОЧНО!!!!!
Дан фрагмент алгоритма:


a := x mod 10


b := x div 100


s := 0


p := 1


если a mod 2 = 0


то s := s + a


иначе p := p * a


если b mod 2 = 0


то s := s + b


иначе p := p * b


Какое наибольшее двузначное число необходимо ввести, чтобы после выполнения фрагмента алгоритма

S=0, p=7?

Answer 1

Ответ:

97

Объяснение:

код на PascalABC.Net

begin

   for var x := 99 downto 89 do

   begin

       var a := x mod 10;

       var b := x div 100;

       var s := 0;

       var p := 1;

       if a mod 2 = 0

           then s := s + a

       else p := p * a;

       if b mod 2 = 0

           then s := s + b

       else p := p * b;

       

       Println(x,s,p);

   end;

end.

вывод

99 0 9

98 8 1

97 0 7

96 6 1

95 0 5

94 4 1

93 0 3

92 2 1

91 0 1

90 0 1

89 0 9