Во 2 задание где принт изображён там команда напечатать если к компьютеру подключён принтер то что есть в программе можно напечатать там в 3 задании уходшение зрения надо отметить
Составляй сам(а). Ты учишься или кто?
I: integer;
a: array [0..100] of integer;
b: array [0..100] of integer;
for i:=0 to 100 do begin
if A[i]<0 them b[i]:=0
else b[i]:=1;
end;
Var p,m,v:real; i:integer;
begin
m:=0.45;
p:=0.5-0.1;
for i:=0 to round((1-0.5)/0.1) do
begin
p:=p+0.1;
v:=m/p;
writeln(p:4:1,' кг/м^3, V = ',v:5:3,' м^3');
end;
end.
Результат:
<span> 0.5 кг/м^3, V = 0.900 м^3
0.6 кг/м^3, V = 0.750 м^3
0.7 кг/м^3, V = 0.643 м^3
0.8 кг/м^3, V = 0.563 м^3
0.9 кг/м^3, V = 0.500 м^3
1.0 кг/м^3, V = 0.450 м^3</span>
247 в восьмеричной + 263 в восьмеричной==532 в восьмеричной или 346 у десятичной