Важным вопросом, интересующим каждого пользователя, остаётся соотношение плюсов и минусов данной системы. Итак, к абсолютным плюсам можно отнести понятный и приятный интерфейс, мощную защиту от вредоносных программ, отличную скорость работы и надёжность системы, а также бесплатное сервисное обслуживание. Минусы, конечно, тоже присутствуют. Во-первых, Mac – недешёвая система, а во-вторых, Mac не поддерживает большинство программ, разрабатывавшихся для Windows.
1. 252₈=170₁₀;
A8C₁₆=2700₁₀;
2. 315₁₀=100111011₂;
3. 5434₁₀=1232₈;
4. 2470₁₀=51A6₁₆;
5. 110011₂+1010₂=111101₂;
6. 100010₂+101₂=11101₂;
7. 111₂*101=100011₂.
Где только находят такие задачи О_о ну вот :)
uses crt;
type auto=record
nom:string;
sht:integer;
end;
var f,g:text;
a:array[1..100] of auto;
s,s1:string;
n,k,i,j,c,p,r:integer;
x:auto;
begin
clrscr;
assign(f,'input.txt');
reset(f);
assign(g,'output.txt');
rewrite(g);
read(f,n);
readln(f,s);
readln(f,s);
k:=1;
a[k].nom:=copy(s,1,8);
delete(s,1,9);
val(s,a[k].sht,c);
for i:=2 to n do
begin
readln(f,s);
s1:=copy(s,1,8);
delete(s,1,9);
val(s,r,c);
p:=0;
j:=1;
while(j<=k) and(p=0) do
if s1=a[j].nom then
begin
p:=j;
a[p].sht:=a[p].sht+r
end
else j:=j+1;
if p=0 then
begin
k:=k+1;
a[k].nom:=s1;
a[k].sht:=r;
end;
end;
close(f);
for i:=1 to k-1 do
for j:=i+1 to k do
if a[i].sht<a[j].sht then
begin
x:=a[i];
a[i]:=a[j];
a[j]:=x;
end;
for i:=1 to k do
begin
writeln(g,a[i].nom,' ',a[i].sht);
writeln(a[i].nom,' ',a[i].sht);
end;
close(g);
end<span>.</span>
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
var k:=ReadInteger('Введите число-дубликат для удаления:');
var id:=a.FindIndex(t->t=k);
if id>-1 then a:=a[:id+1]+a[id+1:].Where(t->t<>k).ToArray;
a.Println
end.
<u>Пример</u>
n= 20
-23 -34 14 35 -16 -4 42 -13 -3 -49 24 49 26 -12 -16 16 47 33 -1 -16
Введите число-дубликат для удаления: -16
-23 -34 14 35 -16 -4 42 -13 -3 -49 24 49 26 -12 16 47 33 -1
Var x,y,i:integer;
begin
writeln('x':3,'y':5);
for i:=1 to 7 do
begin
x:=random(-4,7);
y:=x*x+1;
writeln(x:3,y:5);
end;
<span>end.</span>