Собираешь все свои граматы дипломы, вырезки из газет распечатки с сайта где есть информация о тебе, складываешь все в папку и вуаля....портфолио готово:):):)
1100101(2) = 2^6+2^5+2^2+1=64+32+4+1=101(10)/
Кодирование - переход от одной формы представления информации к другой, более удобной для восприятия, хранения, передачи или обработки информации.
Var a:array [1..10] of Integer; i,temp:Integer; f:Boolean;
begin
Randomize;
for i:=1 to 10 do
a[i]:=Random(100);
for i:=1 to 10 do
write(a[i]:3);
Writeln;
repeat
f:=False;
for i:=1 to 9 do
begin
if a[i]>a[i+1] then
begin
f:=True;
temp:=a[i];
a[i]:=a[i+1];
a[i+1]:=temp;
end;
end;
until not f;
for i:=1 to 10 do
write(a[i]:3);
temp:=0;
for i:=1 to 3 do
temp:=temp+a[i];
Writeln;
Writeln(temp);
Readln;
<span>end.</span>
//PascalABC.NET
//Версия 3.3, сборка 1611 (06.01.2018)
begin
var (x,y,z):=ReadInteger3('Введите координаты 1, 2 кошки и мыши соответсвенно->');
Println(abs(x-z)=abs(y-z)? 'Мышь убежала': abs(x-z)>abs(y-z)? 'Вторая быстрее':'Первая быстрее');
end.
Пример(1):
Введите координаты 1, 2 кошки и мыши соответсвенно-> 1 3 5
Вторая быстрее
Пример(2):
Введите координаты 1, 2 кошки и мыши соответсвенно-> 3 1 5
Первая быстрее
Пример(3):
Введите координаты 1, 2 кошки и мыши соответсвенно-> 1 5 3
Мышь убежала
