Var a:array[1..10] of integer;
x,y,i,p:integer;
begin
randomize;
p:=1;
for i:=1 to 10 do
begin
a[i]:=random(20);
x:=random(3);
if x:=2 then a[i]:=a[i]*(-1);
p:=p*a[i];
write(a[i],' ')
end;
writeln;
writeln(p);
end.
Текстовый редактор Microsoft Word является одним из самых распространенных текстовых
<span>редакторов. Это обусловлено его многочисленными преимуществами, к которым в первую </span>
<span>очередь относятся широкие функциональные возможности. Трудно найти такую </span>
<span>задачу при работе с документами, которую нельзя было бы решить средствами </span>
<span>Microsoft Word. </span>
<span>Текстовый редактор Microsoft Word входит в группу программ Microsoft </span>
<span>Office. Кроме текстового редактора, эта группа включает электронную таблицу </span>
<span>Excel и систему управления базой данных Access, то есть основные программы, </span>
<span>которые могут использоваться для форматирования документооборота в </span>
<span>учреждениях. Широкому использованию Microsoft Word способствуют также </span>
<span>встроенные в него средства преобразования файлов, созданных другими </span>
<span>редакторами, в файлы формата Word. </span>
<span>Существует несколько версий Microsoft Word для Windows, каждая следующая версия, </span>
<span>как правило, совместима с предыдущими версиями и имеет дополнительные возможности.</span>
// PascalABC.NET 3.2, сборка 1485 от 15.06.2017
// Внимание! Если программа не работает, обновите версию!
uses GraphABC;
begin
Pen.Width:=3;
Brush.Color:=ARGB(0,0,0,0); // прозрачная кисть
for var i:=0 to 3 do
for var j:=0 to 2 do
Rectangle(20+140*i,20+140*j,150+140*i,150+140*j); //4x3 квадрата
for var i:=0 to 2 do
for var j:=0 to 1 do
Rectangle(90+140*i,90+140*j,220+140*i,220+140*j); //3x2 квадрата
end.
Var a:real;
begin
writeln('Введите расстояние в километрах');
readln(a);
a:=a*1000/1066.8;
writeln(a);
<span>end.</span>