Вычислить произведение

@quzy · Регистрация: 22.09.2015

Author24 — интернет-сервис помощи студентам

Во-первых, извините не смог разобраться с редактором формул.
Во-вторых, объясните как написать эту программу.
Написал это, вероятно неправильно:

Pascal

Program Nam1;
var p,a: real;
 n,k: integer;
begin
 p:=1;
 writeln('n: ');
 readln(n);
  if sqr(k) <= 100 then a:=-(1/sqr(k))
  else
  if (100 < k) and (k <= 500) then a:=sqr(k)
  else
  if k > 500 then a:=4;
 for k:=1 to n do
  begin
    p:=p*k;
    k:=k+1;
  end;
writeln('p: ', p:10);
readln;
end.

@Puporev · 07.10.2015, 07:50

В задании наверняка опечатка, вместо х везде нужно k²

Pascal

var p,a: real;
    n,k: integer;
begin
p:=1;
n:=36;  //по условию
for k:=1 to n do
 begin
  if sqr(k) <= 100 then a:=-(1/sqr(k))
  else
  if sqr(k) <= 500 then a:=sqr(k)
  else a:=4;
  p:=p*a;
 end;
writeln('p: ', p);
readln;
end.

	07.10.2015, 07:50

Опции темы