Предмет: Информатика,
автор: qosimbetovatt
Помогите срочнооо. Составить программу в паскале
Приложения:

Ответы
Автор ответа:
0
var i,t,j, n:integer; b:array[1..20] of integer;s:string;begin write('Введите число n = '); readln(n); repeat i:= i + 1; b[i] := (n mod 10); // вывод последней цифры числа n:= n div 10; // удаление последней цифры числа until n=0; writeln(b); for i:= 1 to i do begin for j:= 2 to i do begin if b[j-1] < b[j] then begin t:=b[j-1]; b[j-1]:=b[j]; b[j]:=t; end; end; end; writeln(b); for t:=1 to i do s:= s + inttostr(b[t]); write(s); end.
Похожие вопросы
Предмет: Математика,
автор: misha33831
Предмет: География,
автор: Аноним
Предмет: Английский язык,
автор: Аноним
Предмет: Математика,
автор: Лизка228
Предмет: Химия,
автор: maksimka123