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
===== PascalABC.NET =====
begin
var (a, b) := ReadReal2('Введите значения a и b:');
if a = 0 then
if b = 0 then
Println('Решений бесконечно много')
else
Println('Решений нет')
else
Println('x =', -b / a)
end.
// i/(i+2) = 0.8 -> 0.2i=1.6 -> i=8
<span>var i: integer;
</span><span> s: real;
</span><span>begin
</span><span> s:=0; i:=1;
</span><span> repeat
</span><span> s:=s+i/(i+2);
</span><span> i:=i+1;
</span><span> until i=8;
</span><span> writeln('сумма ряда: ',s);
</span><span>end.
</span><span>
</span>
Var a:integer;begin writeln('Введите число от 1 до 999: '); readln(a); if (a>999) or (a<0) or (a=0) then begin writeln('Неправильно введено число!'); end; writeln('Ваше число: ',a);end.