20:36 з6 | |
var x, y, i, k:Integer; begin Writeln('Vvedite 3-znachnoe chislo='); Readln(x); y:=0; k:=100; while (x<>0) do begin y:=y + (x mod 10)* k; k:=k div 10; x:=x div 10; end; Writeln('Otvet = ', y); Readln; end. | |
|
Всего комментариев: 0 | |
20:36 з6 | |
var x, y, i, k:Integer; begin Writeln('Vvedite 3-znachnoe chislo='); Readln(x); y:=0; k:=100; while (x<>0) do begin y:=y + (x mod 10)* k; k:=k div 10; x:=x div 10; end; Writeln('Otvet = ', y); Readln; end. | |
|
Всего комментариев: 0 | |