Question

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.

Answer 1

Наибольший х - 1500.