<em>Притянуто "за уши", но такое уж задание несуразное. Видимо, для старых версий языка.
// PascalABC.NET 3.2, сборка 1353 от 27.11.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
function Summa(a:array of integer):=a.Sum;
begin
var a:=ArrRandom(10,-99,99); a.Println; Writeln;
var b:=ArrRandom(20,-99,99); b.Println; Writeln;
var c:=ArrRandom(30,-99,99); c.Println; Writeln;
Writeln('S=',Summa(a)+Summa(b)+Summa(c))
end.
<u>Пример</u>
53 34 13 64 79 28 -98 -43 -19 23
96 -18 48 61 -70 -16 92 0 27 65 -68 -17 -77 90 -13 69 46 85 71 -44
-21 65 -56 31 56 25 37 50 -35 52 91 -94 12 -98 -51 -73 6 -31 -7 -32 35 -88 -53 63 -93 -29 11 22 -23 -89
S=244
<em>512 бит = 64 байт</em>
<em>81 902 бит = 10 240 байт</em>
<em>15 кб = 15 360 байт</em>
<em>88 кб = 720 896 бит</em>
<em>5 гб = 5 120 мб</em>
<em>1 мб = 1 048 576 байт.</em>
<em><u>Пожалуйста)</u></em>
25 1 1 0 0 1
58 1 1 1 0 1 0
11010110 214
<span>11010000 208</span>
Использовать Робот
алг
нач
влево
нц пока снизу свободно
периметр
мост
кц
кон
алг мост
нач
вниз
влево
нц пока снизу не свободно
если слева свободно
то
влево
все
кц
кон
алг периметр
нач
закрасить
вправо
нц пока снизу не свободно
закрасить
вправо
кц
закрасить
вниз
нц пока слева не свободно и снизу свободно
закрасить
вниз
кц
закрасить
влево
нц пока сверху свободно
закрасить
вверх
кц
нц пока сверху не свободно
закрасить
влево
кц
закрасить
вверх
закрасить
вправо
нц пока снизу не свободно
вправо
кц
вниз
нц пока слева не свободно
вниз
кц
кон
program raf105;
var
i,n: integer;
begin
write('Введите число: ');
readln(n);
write('Чётные: ');
for i:=1 to n do
if i mod 2 = 0
then write(i,' ');
writeln;
write('Нечётные: ');
for i:=1 to n do
if i mod 2 <> 0
then write(i,' ');
end.
<h3><u>PascalABC 3.4.2</u></h3>
