Настройка на локальном компьютере пользователя:
в IE Сервис->Свойства обозревателя->Подключения ->Настойка LAN->поставить галку напротив "использоваеть прокси-серер для подключений LAN", в поле "адрес" прописать IP адрес или доменное имя, в поле "порт" указать порт, на котором работает proxy сервер-> OK
Берём из первой шляпы одну монету, из второй две, ..., из десятой — 10 монет и кладём их на весы.
Если бы все монеты были настоящими, то они бы весили (1 + 2 + ... + 10) * 10 = 550 г. Поскольку каждая фальшивая монета на 1 г легче настоящей, то весы покажут не 550 г, а на столько грамм меньше, сколько взято фальшивых монет. Поскольку количество взятых из шляпы монет совпадает с номером шляпы, это позволит определить, где лежат фальшивые монеты.
A - 20 минут. Это является правилом безопасности
<span>1. uses</span> crt;
<span>2. var</span> i<span>:</span><span>byte</span>; {раздел обявления переменных}
<span>begin</span><span>writeln</span><span>(</span><span>'--------------'</span><span>)</span>;
<span>writeln</span><span>(</span><span>'|Число|Корень|'</span><span>)</span>;
<span>writeln</span><span>(</span><span>'--------------'</span><span>)</span>;
<span>for</span> i<span>:=</span><span>1</span><span>to</span><span>20</span><span>do</span> <span>//цикл с параметром</span><span>writeln</span><span>(</span><span>'|'</span><span>,</span>i<span>:</span><span>4</span><span>,</span><span>' |'</span><span>,</span><span>sqrt</span><span>(</span>i<span>)</span><span>:</span><span>6</span><span>:</span><span>2</span><span>,</span><span>'|'</span><span>)</span>; <span>//вывод</span><span>writeln</span><span>(</span><span>'--------------'</span><span>)</span>;
<span>end</span>.
Код Pascal:
1)
Var
S:real;
n:integer;
Begin
Write('n = ');
ReadLn(n);
S:=0;
For n:= 1 to n do
S:=S+1/Sqr(2*n+1);
WriteLn('S = ',S);
End.
2)
Var x,y:real;
Begin
Write('x = ');
ReadLn(x);
Write('y = ');
ReadLn(y);
if (x = 0)and(y <> 0) then WriteLn('Ось абсцисс')
else if (y = 0)and(x <> 0) then WriteLn('Ось ординат')
else if (x = 0)and(y = 0) then WriteLn('Начало координат')
else WriteLn('(',x,',',y,') не принадлежит осям координат')
End.