Program n1;
var i:integer;
a:array[1..12] of real;
s:real;
begin
s:=0;
for i:=1 to 12 do
begin
a[i]:=7-3*i;
s:=s+a[i];
end;
writeln(s);
end.<span>
</span>
<span>Для перевода числа из любой системы счисления в
десятичную систему надо содержимое каждого
разряда умножить на его "вес" (то есть на основание системы в степени
n-1, где n-номер разряда), а затем суммировать полученные результаты.
В
разрядах, где шестнадцатеричная цифра записана буквой, нужно записать
вместо неё соответствующее десятичное число (вместо A пишем 10, далее: B=11,
C=12, D=13, E=14, F=15).
Считаем по вышеуказанным правилам:
1) 0010</span>₂<span> = 0*2⁰ + 1*2¹ + 0*2² + 0*2³ = 0*1 + 1*2 + 0*4 + 0*8 = 0+2+0+0 = 2₁₀
</span>1011₂ = 1*2⁰ + 1*2¹ + 0*2² + 1*2³ = 1*1 + 1*2 + 0*4 + 1*8 = 1+2+0+8 = 11₁₀
11101₂ = 1*2⁰ + 0*2¹ + 1*2² + 1*2³ + 1*2⁴ = 1*1 + 0*2 + 1*4 + 1*8 +1*16 = 1+0+4+8+16 = 29₁₀
0111₂ = 1*2⁰ + 1*2¹ + 1*2² + 0*2³ = 1*1 + 1*2 + 1*4 + 0*8 = 1+2+4+0 = 7₁₀
0101₂ = 1*2⁰ + 0*2¹ + 1*2² + 0*2³ = 1*1 + 0*2 + 1*4 + 0*8 = 1+0+4+0 = 5₁₀
2) 777<span>₈ = </span>7*8⁰ + 7*8¹ + 7*8² = 7*1 + 7*8 + 7*64 = 7+56+448 = 511₁₀
375₈ = 5*8⁰ + 7*8¹ + 3*8² = 5*1 + 7*8 + 3*64 = 5+56+192 = 253₁₀
111₈ = 1*8⁰ + 1*8¹ + 1*8² = 1*1 + 1*8 + 1*64 = 1+8+64 = 73₁₀
1015₈ = 5*8⁰ + 1*8¹ + 0*8² + 1*8³ = 5*1 + 1*8 + 0*64 + 1*512 = 5+8+0+512 = 525₁₀
3) 15₁₆ = 5*16⁰ + 1*16¹ = 5*1 + 1*16 = 5+16 = 21₁₀
A6₁₆ = 6*16⁰ + 10*16¹ = 6*1 + 10*16 = 6+160 = 166₁₀
1F5₁₆ = 5*16⁰ + 15*16¹ + 1*16² = 5*1 + 15*16 + 1*256 = 5+240+256 = 501₁₀
63<span>₁₆ = 3*16⁰ + 6*16¹ = 3*1 + 6*16 = 3+96 = 99₁₀</span>
Var a,b:array[1..25] of integer;
i,min,max:integer;
begin
max:=1;
min:=1;
for i:=1 to 25 do begin
read(a[i]);
read(b[i]);
if a[i]>a[max] then max:=i;
if a[i]<a[min] then min:=i;
end;
writeln('Лучший - ',a[max],' длина - ',b[max]);
writeln('Худший - ',a[min],' длина - ',b[min]);
<span>end.</span>
Ответ:
program Friendly;
uses
SysUtils; // для IntToStr
var
a, b, i, pa, pb: LongInt;
sa, sb: string;
f: Boolean;
begin
Write ('A, B = ');
ReadLn (a, b);
sa := IntToStr (a);
sb := IntToStr (b);
f := True;
for i := 0 to 9 do begin
pa := Pos (IntToStr (i), sa);
pb := Pos (IntToStr (i), sb);
if ((pa <> 0) and (pb = 0)) or ((pa = 0) and (pb <> 0)) then begin
f := False;
Break;
end;
end;
if f then
WriteLn ('YES')
else
WriteLn ('NO');
ReadLn;
end.
ПОСЛЕДОВАТЕЛЬНОСТЬ ФИБОНАЧЧИ, математическая ПОСЛЕДОВАТЕЛЬНОСТЬ, каждый член которой является суммой двух предыдущих. Таким образом, если энный член последовательности обозначается хn, то для всей последовательности справедливым будет уравнение: хn+2=хn+хn+1, первыми двумя членами которого будут x1=l и x2=1. Порядок последовательности при этом таков: 1, 1, 2, 3, 5, 8, 13, 21..., следующим числом будет 34, т. к. сумма 13 и 21 равна 34 и т.д. Когда число n становится очень большим, отношение соответствующих членов устремляется к величине (Ц5+l)/2. Это соотношение называется золотым. В природе последовательность Фибоначчи можно проследить на примерах спирального развития сегментов раковины и лепестков подсолнуха, расходящихся лучами из одной точки в центре цветка. см. также ЗОЛОТОЕ СЕЧЕНИЕ.<span> </span>