Циклы.Паскаль.

[Jeckee]

задание 2. (подобное)
4 0
Σ Σ (c*k) в квадрате
с=2 k=-3


program prim1;
var c,k,y:integer; {это чтоб меньше чисел выводил}
begin
while c<=4 and k<=0 do {не знаю,вообще можно так или нет}
begin
y:=sqr(c*k);
writeln('y=',y);
end;
end.

[Hacker19_90]

while c<=4 and k<=0 do {не знаю,вообще можно так или нет}
begin
y:=sqr(c*k);
writeln('y=',y);
end;

бесконечно работать будет

[Anton]

Вот тебе готовый код. Можешь переносить код в паскаль, во всяком случае у меня работало.

program mo;

var i,n, u : integer;
 m : real;

procedure fack(k : integer);
var num, res : integer;
begin
res := 1;
for num := 1 to k do
  begin
  res := res*num;
  end;
u := res;
end;

begin
Read(n);
m := 0;
for i := 1 to n do
  begin
  fack(i);
  m := m + (1 / u);
  end;
  write(m);
Readln;
ReadLn;
end.

[GetMax]

Это факториал так считается?

Насколько мне известно - да. Произведение N-1 чисел

[Jeckee]

i,n:Byte - это что за тип переменной??

[Hacker19_90]

Сообщение от GetMax

Насколько мне известно - да. Произведение N-1 чисел

Да а я думал, что для числа 4 факториал считается как
1*2*3*4

[Hacker19_90]

Сообщение от Jeckee

i,n:Byte - это что за тип переменной??

тип целочисленной переменой хранящий в себе числа от 0 до 255

[Jeckee]

Сообщение от Anton

Вот тебе готовый код. Можешь переносить код в паскаль, во всяком случае у меня работало.

program mo;

var i,n, u : integer;
 m : real;

procedure fack(k : integer);
var num, res : integer;
begin
res := 1;
for num := 1 to k do
  begin
  res := res*num;
  end;
u := res;
end;

begin
Read(n);
m := 0;
for i := 1 to n do
  begin
  fack(i);
  m := m + (1 / u);
  end;
  write(m);
Readln;
ReadLn;
end.

а прокатит??препод ведь будет смотреть что я написала

[Jeckee]

Сообщение от Hacker19_90

тип целочисленной переменой хранящий в себе числа от 0 до 255

не забыть бы!а то облажаюсь))

[GetMax]

Да а я думал, что для числа 4 факториал считается как
1*2*3*4

Ваша правда. Что то я какую то фигню сморозил.