Ответ:
Var a, j, i:integer ;
Begin
j:=0;
For i:=1 to 5 do begin
Read(a) ;
If a=1 then j:=j+1;
If a=0 then j:=j-1;
End;
If j>0 then writeln('Ученики идут на пару')
Else Writeln('Ученики спят' );
End.
Var c,x,y: real;
begin
readln (x);
readln (y);
if x>y then
c=x*y
else
c=x+y;
print c
end.
Знайдемо об*єм куба: 6*6*6=216 см³.
Густина срібла 10500 кг\м³=10,5 г\см.
Маса злитка=об*єм*густину=216*10,5=2268 г.
Відповідь: 2268 г.
<span>eabab ПЕРВАЯ ГЛАСНАЯ, А ПОСЛЕДНЯЯ СОГЛАСНАЯ</span>
Сеть типа кольцо, или кольцевая топология