1.
а)огурец.
б) москвич.
в) тракторист.
г)школьники.
2.
а)герои из сказки Буратино.
б)сказки.
в)большие города.
г)большие реки.
д)города России.
3.
а) Джеймс Кук.
б)корень.
в)P=2(a+b)
г)Илья Муромец и Соловей разбойник.
4.
1)птица летит по воздуху. Птица сидит в гнезде.
2)мяч катится в ворота. Мяч лежит на поле.
3)велосипед едет по дороге. Велосипед стоит около магазина.
<span>Нужно использовать ADSL модем, совместно с сплиттером, которая разделит сигнал инета и телефона, т.е. телефон не будет занят. Подключаем кабель в разъём Line другой конец в модем и всё.
</span><span>
</span>
Const
text1='Enter a,b and c:';
text2='D=';
text3='There are no roots!';
text4='x=';
text5='x1=';
text6='x2=';
text7='Press any key to continue';
var
a,b,c,x,x1,x2,D:real;
begin
write(text1);
readln(a,b,c);
D:=sqr(b)-4*a*c;
writeln(text2,D);
if D<0 then
writeln(text3)
else if D=o then
begin
x:=-b/(2*a);
writeln(text4,x);
end
else
begin
x1:=(-b+sqrt(D))/(2*a);
x2:=(-b-sqrt(D))/(2*a);
writeln(text5,x1);
writeln(text6,x2);
end;
end.
Корневой каталог- папка (главная )
//Pascal ABC.NET v3.1 сборка 1172
Const
n=3;
Var
ma:array[1..n,1..n] of real;
i,j:integer;
r:real;
begin
randomize;
r:=1;
writeln('Matrix:');
for i:=1 to n do
begin;
writeln;
for j:=1 to n do
begin;
ma[i,j]:=random(1,10);
if j mod 2<>0 then r:=r*ma[i,j];
write(ma[i,j]:4);
end;
end;
writeln;
writeln('Res=',r);
end.
Пример работы кода<span>:
</span>Matrix:
5 3 3
2 2 5
10 2 4
<span>Res=6000</span>