|
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 |
|
