1.Напишите программу,определяющую сумму S=1+2+3+4...+99 2.Напишите программу,определяющую...

Question

1.Напишите программу,определяющую сумму S=1+2+3+4...+99
2.Напишите программу,определяющую произведение
P=1*2*3*4...*10
На Паскаль
За ранее благодарна

Answer 1

Var
  i,s:integer;
begin
  s:=0;
  for i:=1 to 99 do s:=s+i;
  Writeln('S=',s)
end.

var
  i:integer;
  p:longint;
begin
  p:=1;
  for i:=1 to 10 do p:=p*i;
  Writeln('P=',p)
end.