ОЧЕНЬ ВАЖНО СТАВЛЮ ВСЕ СВОЮ ДОЛГО ЗАРАБАТЫВАЕМЫЕ БАЛЛЫ, ЕСЛИ НЕ СДАМ МОГУТ ОТЧИСЛИТЬ ,И БУДЕТ КОНЕЦ, НЕ ЗНАЮ УМОЛЯЮ ОЧЕНЬ ПРОШУ ПОМОГИТЕ ПОЖАЛУЙСТА РЕШИТЬ!

+ 0 -

Iiwannasawicka

31 окт. 2014 г., 4:01:41 (9 лет назад)

var x,y:real;
begin
x:=-3;
writeln('x':3,'y':9);
while x<=4 do
  begin
  y:=ln(abs(x))+cos(x)/sqr(sin(x));
  writeln(x:5:2,y:10:3);
  x:=x+0.8;
  end;
end.

var i,n,p:integer;
begin
p:=1;
for i:=1 to 10 do
  begin
  readln(n);
  if n>0 then p:=p*n;
  end;
writeln('Ответ: ',p);
end.

10 REM Табулирование функции
20 FOR x=-3 TO 4 STEP 0.8
30 y=LOG(ABS(x))+COS(x)/SIN(x)^2
40 PRINT "x=";x;"; y=";y
50 NEXT x
60 END

REM Вычисление произведения
P=1
FOR T=1 to 10
  INPUT X
  IF X>0 THEN P=P*X
NEXT T
PRINT "P= ";P
END

+ 0 -

Shaga08

31 окт. 2014 г., 4:58:04 (9 лет назад)

Leonid135 близжайшее время будет наказан за ответ не содержащий ответа.

+ 0 -

Eldar062003

31 окт. 2014 г., 6:52:15 (9 лет назад)

на вопрос

+ 0 -

Alexeevawolf

31 окт. 2014 г., 8:40:06 (9 лет назад)

alex помоги братан!!!