Программа на Pascal ABC. Сгенерировать случайным образом трехзначное число. Напечатать его. Вывести все цифры, составляющие это число, в порядке не убывания.
Ответы
Ответ дал:
0
var
n,i,j,k:integer;
a:array[1..3] of integer;
begin
Randomize;
n:=Random(900)+100;
Writeln(n);
a[1]:=n div 100;
a[2]:=(n div 10) mod 10;
a[3]:=n mod 10;
for i:=1 to 2 do
for j:=i+1 to 3 do
if a[i]<a[j] then begin k:=a[i]; a[i]:=a[j]; a[j]:=k end;
Writeln(a[1],' ',a[2],' ',a[3]);
end.
Пример работы
658
8 6 5
n,i,j,k:integer;
a:array[1..3] of integer;
begin
Randomize;
n:=Random(900)+100;
Writeln(n);
a[1]:=n div 100;
a[2]:=(n div 10) mod 10;
a[3]:=n mod 10;
for i:=1 to 2 do
for j:=i+1 to 3 do
if a[i]<a[j] then begin k:=a[i]; a[i]:=a[j]; a[j]:=k end;
Writeln(a[1],' ',a[2],' ',a[3]);
end.
Пример работы
658
8 6 5
Вас заинтересует
1 год назад
6 лет назад
8 лет назад
9 лет назад