Открываешь калькулятор и выбираешь режим программиста а там переключаешь Bin,Oct,Dec,Hex : <span>110101, </span>35,53,65
Var i,n,k: integer;
<span> a: array[0..1000] of integer;
</span><span>begin
</span><span> write('n = '); readln(n);
</span><span> a[0]:=1; a[1]:=1;
</span><span> i:=2;
</span><span> repeat
</span><span> k:=i div 2;
</span><span> if (i mod 2) = 0 then a[i]:=a[k]+a[k-1]
</span><span> else a[i]:=a[k]-a[k-1];
</span><span> i:=i+1;
</span><span> until i>n;
</span><span> writeln('a(n) = ',a[n]);
</span><span>end.
</span>
1. Полицейский с рисунком, где такси
2. Женщина с второй строкой первым рисунком
3. Космонавт с самым последним рисунком второго ряда
4. Почтальон со вторым рисунком из второго ряда
очень лёгкое задание!!!!!
//Pascal ABC.NET v3.1 сборка 1172
var
NA, NB, NC: integer;
function minim(ar: array of real; n: integer): real;
var
i: integer;
min: real;
begin
min := MaxReal;
for i := 0 to n - 1 do //динамические массивы индексируются с 0
if min > ar[i] then min := ar[i];
minim := min;
end;
begin
randomize;
write('NA:');readln(NA); //ввод размерностей
write('NB:');readln(NB);
write('NC:');readln(NC);
var a := ArrRandomReal(NA, 1, NA); //инициализация динамических массивов
var b := ArrRandomReal(NB, 1, NB);
var c := ArrRandomReal(NC, 1, NC);
a.println(' ');
writeln('Min:', minim(a, NA));
b.println(' ');
writeln('Min:', minim(b, NB));
c.println(' ');
writeln('Min:', minim(c, NC));
end.
Пример ввода:
NA:3
NB:4
NC:5
Пример вывода:
2.45183664907321 2.12786289357015 2.8286734511278
Min:2.12786289357015
3.47355249453036 1.03827733129183 2.42042394141686 2.17556424353996
Min:1.03827733129183
3.9204495134393 3.64103751938838 3.57791954771519 4.31033914690387 4.13624760282051
Min:3.57791954771519
program sasa;
function stepenj (val:integer):integer;
var inp,i,tmp:integer;
begin
tmp:=val;
Result:=1;
Writeln ('Vvedi stepenj');
Readln (inp);
for i:=1 to inp do
Result:=Result*tmp;
Writeln (Result);
end;
