Program ch0 ; uses crt; var k, z, i : integer ; begin writeln ('������å ����î'); read (k); z: =0; while k> 0 do begin z: =z*10; z: =z + (k mod 10); k: =k div 10; end; while z> 0 do begin i: =z mod 10; z: =z div 10; writeln (i, ' '); end; end. поясните

яяя615    2   07.09.2019 11:10    0