Var
procedure kamen(x, y:integer);
{здесь рисуете свой камень. вместо координат х и у}
begin
{я опишу только анимацию камня. с графикой давно не работал-успел забыть}
x:=300;
y:=400;
while y<>700 do
if y<200 then begin
x:=x+15;
y:=y+10;
setcolor(15);
kamen(x, y);
delay(100);
setcolor(0);
kamen(x, y)
else
x:=x+15;
y:=y-10;
setcolor(15);
kamen(x, y);
delay(100);
setcolor(0);
kamen(x, y);
end;
closegraph;
readln;
end.
все числа нужно подогнать на практике
А) 1 работник - источник, 2 работник - приемник.
б) учитель - источник, ученики - приемник.
в) газета - источник, девочка - приемник.
г) 1 девочка - источник и приемник, 2 девочка так же источник и приемник.
Все проверялось с помощью программы(код ниже):
3 16
8 13
13 10
11 14
16 11
______
9 5
7 9
12 6
10 10
15 7
13 11
11 15
16 12
<span>//PascalABC.NET
//Версия 3.3, сборка 1611 (06.01.2018)</span>
begin
var x:= ;
var y:= ;
Println(x,y);
while x<16 do
begin
if x>y then begin x:=x-2; y:=y+4; end else begin x:=x+5; y:=y-3; end;
Println(x,y);
end;
end.
- 10145 (10) - 10011110100001 (2)
Если число с точкой, как у вас, большой ответ выходит : 1010.00100101000111101011100001010001111010111000010<span>100</span>
- <span>111100001 (2) - 481 (10)
- </span>4F9 (16) - 5521 (6)<span>
</span>
