1842₁₀ = 5241₇
1842/7= 263 ост. 1
263/7=37 ост. 4
37/7=5 ост. 2
5
<em>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('n=');
var a,b,c:integer; // цифры числа n = abc
var (i,j,k):=(1,2,3); // места цифр a,b,c, расположенных по неубыванию
var s1:array[1..3] of string:=('первая','вторая','третья');
var s2:array[1..3] of string:=('первой','второй','третьей');
a:=n div 100;
b:=(n div 10) mod 10;
c:=n mod 10;
// сортировка по неубыванию
if a>b then begin Swap(a,b); Swap(i,j) end;
if b>c then begin
Swap(b,c); Swap(j,k);
if a>b then begin Swap(a,b); Swap(i,j) end
end;
if c>b then Writeln(s1[k],' цифра больше остальных')
else
if b>a then Writeln(s1[j],' и ',s1[k],' цифры больше ',s2[i])
else Writeln('Все три цифры одинаковы')
end.
<u>Примеры</u>
n= 638
третья цифра больше остальных
n= 583
вторая цифра больше остальных
n= 707
первая и третья цифры больше второй
n= 444
Все три цифры одинаковы
При копировании кода формат испортился. Код должен выглядеть как на картинке
var r, l: real; //Радиус и длина окружности соответственно top, bottom: real; //Внешний и внутренний радиус кольца ex_num: word;begin write('Введите номер задания: '); read(ex_num); if ex_num = 1 then begin write('Введите радиус: '); read(r); writeln('Длина окружности: ', 2 * pi * r); writeln('Площать круга данного радиуса: ', pi * r * r); end else if ex_num = 2 then begin writeln('Введите длину окружности: '); read(l); write('Площадь круга: ', pi * sqr(l / 2 * pi)); end else begin write('Введите внешний радиус кольца: '); read(top); write('Введите внутренний радиус кольца: '); read(bottom); write('Площадь кольца: ', pi * top * top - pi * bottom * bottom); end;end.
2^(3+10+10+4)=2^27 бит
3 - это степень бит в байте,
10 - степень КБ в МБ
10 - степень Б в КБ
4 - степень 16
(все в двоичной форме)
