Program ch0 ; uses crt; var k, z, i : integer ; begin writeln ('������å ����î'); read...

Question

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. Поясните пожалуйста

Answer 1

Привет, некорректное условие,  дополни его условием или напиши мне в ЛС, я тебе помогу!