Составить программу вывода всех цифр заданного пятизначного числа.

Var a: integer; begin read (a); while a> =0 do begin write (a mod 10); a: =a div 10; end; end. ps работает не только с пятизначным, но и со всеми числами

Жил был билл гейтс, и основал он компанию microsoft, в которой родилась первая операционная графическая система ms-dos, жалкие людишки наконец смогли по нормальному пользоваться пк, операционная система стала сама людям, спрашивать их о том, какие действия нужно совершить. после вышел windows 95, nt, 2000, xp,7,8. и людям больше нечего было делать, только в игрушки играть, но вы! да, да вы! моя учительница информатики не даете мне насладиться этим чудом в полной мере. будьте вы прокляты со своим тупым . сочинить сказку про wordpad, это просто идиотизм.  начнем. создали в microsoft текстовый редактор wordpad, и людишки смогли писать на экранчиках мониторчиков. и все счастливы. конец.

Program d1kpxx8; uses  crt; var s,b: string; c: boolean; i,k,n: integer; begin c: =false; s: ='abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzабвгдеёжзийклмнопрстуфхцчшщъыьэюяабвгдеёжзийклмнопрстуфхцчшщъыьэюя'; read(b); k: =0; repeat inc(k); begin if s[k]=b[1] then begin break; end; end; until k> length(s); n: =length(b); for i: =1 to n do begin if s[k]=b[i] then begin c: =true; end else c: =false; inc(k); end; write(c); if c=true then halt else if c=false then halt; writeln('false'); end.