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 | |
Четкий портал 2
Четкий портал
Главная » 2012 Сентябрь 19 » з6
