Question

Помогите, пожалуйста, написать программу в паскале!!

Answer 1

program zadacha;
var
i:integer;
s,p:longint;
begin
  s:=1;
  p:=1;
  for i:=2 to 10 do begin
   p:=p+i;
   s:=s*p;
  end;
  write(s);
end.

Answer 2

ясно, спасибо

Answer 3

можно попробовать Int64, только нужно использовать free pascal.

Answer 4

var
    i, k: integer;
    s: real;

begin
    s := 1;
    for i := 1 to 10 do
    begin
        k := k + i;
        s := s * k;
        writeln(i:3,k:3,' ',s);
    end;
    writeln(s);
end.

Answer 5

у меня 141455160000

Answer 6

скорее всего у Расты ошибка в рассчетах, ведь цифры весьма похожи

Answer 7

ой
неправильно чо-то посчитала как всегда

Answer 8

да-да, у вас правильно
спасибо большое!
можете еще посмотреть задачки?
http://znanija.com/task/3974660