1. Посчитать сумму первых 10-ти ЧЕТНЫХ чисел. 2. Мальчик в первый день учит 5 слов, а в...

Question

1. Посчитать сумму первых 10-ти ЧЕТНЫХ чисел.
2. Мальчик в первый день учит 5 слов, а в последующий на 2 слова больше, чем в предыдущий. Сколько слов будет знать мальчик через 10 дней.
(на паскале)

Answer 1

1)
var i, s, c: integer;
  begin
   s := 0;
   i := 1;
   c := 0;
   while c < 10 do
    begin
     if(i mod 2 = 0) then
      begin
       c := c + 1;
       s := s + i;
      end;
     i := i + 1;
   end;
     write(s);
 end.

2)
var i, s, k: integer;
 begin
  s := 0;
  k := 5;
  for i := 1 to 10 do
  begin
    s := s + k;
    k := k + 2;
  end;
  write(s);
end.