1) Вычисляем длины всех его сторон
Program vika;
var x, y : integer;
begin
writeln ('Ведите x');
readln (X);
writeln ('Ведите y');
readln (y);
if
(x>0) and (y>0) then writeln (' В 1');
else
if (x>0) and (y<0) then writeln ('В 4');
if
(x<0) and (y>0) then writeln ('Во 2');
else
if (x<0) and (y<0) then writeln ('В 3');
end.
немного исправил.
стерео *2
16 бит *2
48000 *6 (после * указываю во сколько раз больше, чем в 1 случае)
Таким образом, объём второго файла будет в 2*2*6=24раза больше, чем первого.
Ну где-то так...
Да, примерный объём первого файла за 10сек оценивается просто
10*1*8000=80 000 байт = 78Кбайт
Ну а второго
80000*24=1920000байт = 1875Кб=1.8М
Вроде так :о
Var R,x,y : real; k,i: integer;
begin
write('R='); readln(R);
k:=0;
for i:=1 to 3 do
begin
write('x = '); readln(x);
write('y = '); readln(y);
if sqrt(x*x+y*y)<=R then k:=k+1;
end;
writeln('В круг попали ',k,' точек');
<span>end.</span>
6 слов можно составить))))))))))))))