Информатика

Рим

23 марта, 11:03

56) Получив на вход число х, этот алгоритм печатает два числа a и b. Укажите наибольшее из таких чисел х, при вводе которых алгоритм печатает сначала 2, а потом 15.

var x, a, b: integer;

begin

readln (x) ;

a : = 0; b : = 0;

while x > 0 do begin

a : = a+1;

b : = b + (x mod 100) ;

x : = x div 100;

end;

writeln (a) ; write (b) ;

end.