Ответ:
11111110001 = 2033; 4321=586; 18B=395; 0,347
Объяснение:
//Это человечек в профиль.
//Pascal ABC.NET v3.1 сборка 1172
Uses
GraphABC;
Var
i:integer;
begin
maximizewindow;
for i:=100 to 500 do
begin
clearwindow();
setbrushcolor(clGold);
circle(i,i,10);
circle(i,i+30,6);
circle(i,i+65,6);
setbrushcolor(clgray);
ellipse(i-15,i+10,i+15,i+60);
setbrushcolor(clGold);
circle(i,i+30,6);
sleep(40);
end;
end.
Это легко смотри ты должна сделать точно такой же в тетрадь и формулу S=a*v
Примеры:
1.
if (ivanov=0) or (petrov=1) then
begin
sidorov:=1;
end;
2.
if ivanov=0 then
begin
sidorov:=0;
end;