var x, a, b: integer;
begin
readln(x);
a:=0; b:=1;
while (x mod 10) > 1 do
begin
a:=a+(x mod 10);
b:=b*2;
x:=x div 10;
end;
writeln(a); write(b);
end.
Укажите наименьшее из таких чисел x, при вводе которых алгоритм сначала печатает
12, а потом 16.
begin
readln(x);
a:=0; b:=1;
while (x mod 10) > 1 do
begin
a:=a+(x mod 10);
b:=b*2;
x:=x div 10;
end;
writeln(a); write(b);
end.
Укажите наименьшее из таких чисел x, при вводе которых алгоритм сначала печатает
12, а потом 16.
More Questions From This User See All
Answers & Comments
Ответ:
при х=2226
Объяснение:
Var
x, a, b, i: integer;
begin
a:=0; b:=1;
i := 0;
repeat begin
inc(i);
x := i;
a:=0; b:=1;
while (x mod 10) > 1 do begin
a:=a+(x mod 10);
b:=b*2;
x:=x div 10;
end;
end;
until (a=12) and (b=16);
Writeln(Format('При x=%d a=%d b=%d', [i, a, b]));
end;