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
Ответ:
нажать на файл потом на сохранить как и потом сохраняешь куда тебе надо
<h2>Барсик</h2>
пирамида.................
var i,N:integer;
begin
writeln('пожалуйста, веедите натуральное число не превосходящее 1000');
readln(N);
writeln('Входное число=',N);
for i:=0 to (N-1) do write(i,' ');
end.
Пример работы:
пожалуйста, веедите натуральное число не превосходящее 1000
5
Входное число=5
0 1 2 3 4
P.S.Если в условии от 1-го, а не от нуля, for i:=0 to (N-1) do write(i,' '); замени на for i:=1 to (N-1) do write(i,' ');
Лишняя информация, если тебе не нравится информатика: на сколько я понял, ты не мог понять как вывести сначала число 5. В моей программе это делает оператор writeln(N); Именно Writeln, а не Write. Почему? Потому что writeln произошло от слова line - линия, оно занимает целую строку. А Write мастит все в одну строку. Если нужно будет что-то рассказать и это будет в моих силах, я с радостью помогу любому желающему.
===== 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.