a guest Feb 21st, 2020 85 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
- writeln('Ââåäèòå öåëîå ÷èñëî ');
- while a<>0 do begin
- x:=a mod 10;
- a:= a div 10;
- writeln('Ñóììà öèôð ÷èñëà ',c,' ðàâíà ',b);
RAW Paste Data