var a:array[1..15]of integer;
i:integer;
begin
for i:=1 to 15 do begin a[i]:=random(31)-15; write(a[i]:4); end;
writeln;
for i:=1 to 15 do if a[i]>=0 then a[i]:=sqr(a[i]) else a[i]:=abs(a[i]);
for i:=1 to 15 do write(a[i]:4);
end.
var a:array[1..15]of integer;
i:integer;
begin
for i:=1 to 15 do begin a[i]:=random(31)-15; write(a[i]:3); end;
writeln;
for i:=1 to 15 do if a[i] mod 2=0 then a[i]:=2 else a[i]:=a[i]-5;
for i:=1 to 15 do write(a[i]:3);
end.
var a:array[1..15]of integer;
i:integer;
begin
for i:=1 to 15 do begin a[i]:=random(31)-15; write(a[i]:3); end;
writeln;
for i:=1 to 15 do if a[i] mod 6=0 then a[i]:=a[i] div 2 else a[i]:=a[i] div 5;
for i:=1 to 15 do write(a[i]:3);
end.
var a:array[1..15]of integer;
i,k:integer;
begin
for i:=1 to 15 do begin a[i]:=random(31)-15; write(a[i]:3); end;
writeln;
k:=a[3];
a[3]:=a[11];
a[11]:=k;
for i:=1 to 15 do write(a[i]:3);
end.
1) достаточно большой объем
2) не очень большая цена (по сравнению в переносными внешними жесткими дисками)
3) быстрый переноса информации
4) не требуется домолнительных прграмм для сохранения информации
5) есть возможность работать прямо с носителя.
многое это есть и у других носителей, но например дискеты обладают маленькой памятью, для работы сс дисками надо иметь и дисковод и, что бы записать туда информацию, необходимо программу. А переносной внешний жеский диск имеет достаточную стоимость, что не покараману некоторым.
// PascalABC.NET
// Версия 3.3.5 сборка 1662 (29.04.2018)
uses GraphABC;
begin
Window.Title := 'Рисование мышью(Enter - сохранить на раб. стол)';
Pen.Color := Color.Red;
Pen.Width := 3;
OnMouseDown := (x,y,mb) -> MoveTo(x,y);
OnMouseMove := (x,y,mb) -> if mb=1 then LineTo(x,y);
var a:=System.Security.Principal.WindowsIdentity.GetCurrent.Name;
OnKeyDown:=k->if k=13 then begin
SaveWindow('C:\Users\'+copy(a,pos('\',a)+1,a.Length-pos('\',a)+1)+'\Desktop\image.png'); Window.Close; end;
end.