|
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. Прикрепления: |
Категория: |
Просмотров: 870 |
Добавил:
| Теги:
| Рейтинг: 0.0/0 |
|