Const
N=30;
Var
A:array[0..N+1]of integer;
i,j:integer;
Begin
For i:= 1 to N do
A[i]:=random(-7,7);
A[0]:=1;
A[N+1]:=2;
For i:= 1 to N do
Begin
Write(A[i],' (',i,'), ');
For j:= 1 to N do
if i<>j then
if A[i]+A[j]<A[A[0]]+A[A[N+1]] then
Begin
A[0]:=i;
A[N+1]:=j
End;
End;
WriteLn;
WriteLn(A[0], ' , ',A[N+1]);
End.
Ответ:
Жили были процессор, память, клавиатура, монитор и мышь. Жили они дружно,пока не возник спор кто из них глнвнее.
Процессор говорил что он так как он мозг кампютера. Память говорила что она потому что на ней хранится информация. Монитор гововил что он потому что он воспроизводит изоброжение на экран и без него человек не видел нечего, ну а мышь говорила что если бы не она то человек даже не смог управлять компютером. Но в итоге подумали они, подумали, и решили что процесор самый главный из них так как это мозг компьютера и без него нечего не работало.
Объяснение:
Процесор одна из самых важных частей компьютера. Он отвечает за работу и быстро действие компьютера или же устройства.
<span>var
a, b, c: integer;
begin
Read(a, b, c);
if ((a > b) and (a > c) and (b > c)) Then
Write(a, ' ', b, ' ', c)
else
if ((b > a) and (b > c) and (a > c)) Then
Write(b, ' ', a, ' ', c)
else
if ((c > a) and (c > b) and (a > b)) Then
Write(c, ' ', a, ' ', b)
else
if ((b > a) and (b > c) and (c > a)) Then
Write(b, ' ', c, ' ', a)
else
Write(c, ' ', b, ' ', a)
end<span>.</span></span>
PROGRAM Power_Long;
var
i:byte; // счетчик
si, so:string; // числа в виде строк
power:byte; //показатель степени
function readFile(filename:string):string;
var f:text;
s:string;
begin
assign(f,filename); Reset(f);
readln(f,s);
readln(f,power);
close(f);
readFile := Trim(s);
end;
function multiplyLong(s1:string; s2:string):string;
var
i,j,k,l:byte; //счетчики
z:boolean; //
A,B,T,R:array [0..100] of byte; //массивы
carry:byte; //перенос при умножении и суммировании
rt:string;//результат
begin
// первая строка чисел в массив
l:=Length(s1);
// A := new byte[l+1];
A[0]:=l; //количество
for i:=l downto 1 do
A[l-i+1]:=ord(s1[i]) - 48;
// вторая строка чисел в массив
k:=Length(s2);
// B := new byte[k+1];
B[0]:=k; //количество
for i:=k downto 1 do
B[k-i+1]:=ord(s2[i]) - 48;
i:=l+k; // 999*9999=9989001, т.е. максимум 7знаков
// R := new byte[i+1]; //массив с результатом
R[0]:=i;//количество
// T := new byte[i+1];//temp - произведение A на один знак из B
for i:=1 to A[0] do begin
//T := умножение A на один знак из B
carry:=0;
for j:=1 to B[0] do begin
k:= A[i] * B[j] + carry;
carry := k div 10;
T[j]:= k mod 10;
end;
j:=j+1;
T[j]:=carry;
T[0]:=j;
// прибавление T к результату R
carry:=0;
for j:=1 to T[0] do begin
k := T[j] + R[j+i-1] + carry;
carry := k div 10;//перенос
R[j+i-1] := k mod 10;
end;
end;
rt:='';
z:=false;//проверка на ведущие нули
for i:= R[0] downto 1 do begin
if (R[i]>0) then begin
rt := rt + R[i];
z:=true;//все последущие нули надо добавить в число
end else
if (R[i]=0) and z then
rt := rt + R[i];
end;
multiplyLong := rt;
end;
BEGIN
si := readFile('input.txt');
so := multiplyLong(si, si); //возвели во вторую степень
// возведение в степень от 3 и выше умножением
for i:=3 to power do begin
so := multiplyLong(si, so);
end;
writeln( si, '^',power,' = ',so );
END.
↔ - это эквиваленция (или эквивалентность). Также можно встретить запись тройное тире : А≡Б
читается как:
"A то же самое, что и Б" или "A эквивалентно Б"
Проще говоря, если А и Б принимают одно и то же значение, то значение А↔Б - истинно (равно 1)
