Размещено 5 лет назад по предмету
Информатика
от IchtoEto
укажите наибольшее из таких чисел x, при вводе которых алгоритм печатает сначала 2, а потом 9.
var x, a,b: integer;
begin
readln(x);
a:=0; b:=0;
while x>0 do
begin
a:=a+1;
b:= b+(x mod 10);
x:=x div 10;
end;
writeln(a); write(b) ;
end.