<em>// PascalABC.NET 3.3, сборка 1540 от 16.09.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('n=');
var a:=ArrRandom(n,-35,35); a.Println;
var (k1,k3):=ReadInteger2('Введите границы индексов для замены элементов:');
// блок "защиты от дурака"
if k1<1 then k1:=1;
if k1>n-1 then k1:=n-1;
if k3<1 then k3:=1;
if k3>n-1 then k3:=n-1;
if k1>k3 then Swap(k1,k3);
// -----------------------
for var i:=k1-1 to k3-1 do a[i]:=-a[i];
a.Println
end.
<u>Пример</u>
n= 13
-27 18 15 31 27 -1 -5 20 -20 -34 -7 -33 16
Введите границы индексов для замены элементов: 6 9
-27 18 15 31 27 1 5 -20 20 -34 -7 -33 16
Uses GraphABC;
begin
Window.Height:=600;
Window.Width:=800;
var y:=10;
while y<Window.Height do begin
Line(10,y,790,y);
y+=10
end;
var x:=10;
while x<Window.Width do begin
Line(x,10,x,590);
x+=10
end;
Randomize;
Pen.Color:=clRed;
Pen.Width:=3;
x:=Window.Width div 2;
x:=10*Round(x/10);
y:=Window.Height div 2;
y:=10*Round(y/10);
MoveTo(x,y);
repeat
case Random(1,4) of
1:LineTo(PenX+10,PenY);
2:LineTo(PenX,PenY-10);
3:LineTo(PenX-10,PenY);
4:LineTo(PenX,PenY+10);
end;
Sleep(100);
until false;
end.
Uses crt;
var i,n,p,k:integer;
begin
clrscr;
readln(n);
for i:=2 to n div 2 do
if (n mod i = 0) then inc(k);
if k =0 then writeln('simple')
else writeln('not simple');
readln
end.
I1=5120*8=40960 бит/8/1024 = 5 КБ
После преобразования документ будет весить в 2 раза больше.
Поэтому памяти также потребуется в 2 раза больше.
I2=5120*16=81920 бит/8/1024 = 10 КБ
Значит, потребуется еще 5 КБ.
1) Перейти на сайт https://урокцифры.рф/
2) Пролистать ниже и найти раздел "5-7 классы. Уровень для опытных специалистов", нажать на "пройти".
3)Ответить на пару следующих вопросов (выбор области, класса, пола, колличества игроков)
4) Прочитать короткий комикс и приступить к игре.
В игре нужно отдавать команды роботу, чтобы он двигался и фотографировал рыбок. Вначеле игры идёт объяснение о том, как правильно писать команды роботу.