Var a,b,c,r,d1,d2,d3:real;
begin
writeln('Введи радиус иллюминатора и размеры сундука');
readln(r,a,b,c);
d1:=sqrt(sqr(a)+sqr(b));
d2:=sqrt(sqr(a)+sqr(c));
d3:=sqrt(sqr(b)+sqr(c));
writeln('Диагонали сундука: d1=', d1,' d2=',d2,' d3=',d3,' Диаметр окна: ',2*r);
if (d1<r*2)or(d2<r*2)or(d3<r*2) then writeln('Сундук пройдёт') else writeln('Сундук не пройдёт');
end.
Program gt;
var a,b:array[1..100]of integer;
j,i,h:integer;
begin
for i:=1 to 10 do
begin
read(a[i]);
end;
for i:=1 to 10 do
begin
h:=0;
for j:=1 to 10 do
begin
if(a[i]=a[j])then h:=h+1;
end;
b[i]:=h;
end;
for i:=1 to 10 do
begin
if(b[i]>1)then begin
for j:=1 to b[i] do
begin
write(a[j],' ');
endl
end;
end.
While (условие) do
begin
(пишем что выполнить)
end;
Пояснение:
1 - исправно, 0 - неисправно
1) Если правы хозяин и сын, а мастер не прав, то противоречий нет.
2) Если правы хозяин и мастер, а сын не прав, противоречие по памяти.
3) Если правы сын и мастер, а хозяин не прав, противоречие по процессору.
Ответ:
<em>Память и винчестер исправны, процессор вышел из строя.</em>
2^10=1024
2^6=64
1024*64=65536 бит
1 кбит=8 бит
65536/8=8192 кбит