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.
Размер изображения = 256*128*4 бит это за 8 сек
<span>за одну сек это будет 256*128*4 / 8 = 16384 бит в секунду = 0,015625 Мегабит в секунду, как сейчас модно мерять в мегабитах</span>
Var
k : integer;
begin
read (k);
if k mod 2 = 0 then
writeln ((k div 2 - 1) mod 10)
else writeln ((k div 2 - 1) div 10 + 1);
end.
вроде так
<em>// PascalABC.NET 3.2, сборка 1381 от 04.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger;
var a:=ReadArrInteger(n);
var p:=a[0]; Print(p);
for var i:=2 to a.Length-1 do
if a[i]>p then begin p:=a[i]; Print(p) end;
end.
<u>Пример</u>
15
32 32 66 74 32 54 52 86 87 3 72 66 27 42 60
32 66 74 86 87