Помогите решить две задачи с помощью "паскаля"1)Ученик выучил в первый день 5 английских...

Question

Помогите решить две задачи с помощью "паскаля"
1)Ученик выучил в первый день 5 английских слов ,а последующие дни он учил на два слова больше чем в предыдущие через сколько дней он выучит 250 слов?
2)Вычислить сумму и произведения натурального числа от 1 до 20.

Answer 1

1.
var k,x,y:integer;
begin
  x:=5; k:=1;
  while y<250 do<br>  begin
    x:=x+2;
    y:=y+x;
    k:=k+1;
  end;
  writeln(k);
end.
2.
var s,p,x:longint;
begin
  for x:=1 to 20 do
  begin
    s:=s+x;
    p:=p*x;
  end;
  writeln('Сумма=',s,'. Произведение=',p);
end.