укажите наибольшее из таких чисел x, при вводе которых алгоритм печатает сначала 3, а потом 25.

program B08;

var x, a, b: interger;

begin

readln (x) ;

a:=0; b:=0;

while x>0 do

begin

a:=a+1;

if (x mod 2) then

b: = b + (x mod 10) ;

x:=x div 10;

end;

writeln (a) ; write (b;

end.

Question

Информатика

Роза

29 декабря, 20:25

укажите наибольшее из таких чисел x, при вводе которых алгоритм печатает сначала 3, а потом 25.

program B08;

var x, a, b: interger;

begin

readln (x) ;

a:=0; b:=0;

while x>0 do

begin

a:=a+1;

if (x mod 2) then

b: = b + (x mod 10) ;

x:=x div 10;

end;

writeln (a) ; write (b;

end.

+4

Ответы (1)

Знаете ответ на вопрос?

Ефим · Answer 1

Ответ: 997

Программу правильно допиши:

var x, a, b: integer;

begin

readln (x) ;

a:=0; b:=0;

while x>0 do

begin

a:=a+1;

if (x mod 2) b then

b: = b + (x mod 10) ;

x:=x div 10;

end;

writeln (a) ; write (b) ;

end.

(исправленный вид)