Мне нужна помощь по информатике срочно В общем мы делаем всё ** Pascal ABC. и надо решить...

Question

Мне нужна помощь по информатике срочно В общем мы делаем всё на Pascal ABC. и надо решить следующее: 1. Найти сумму всех натуральных чисел от 1 до 100. 2. Найти сумму кубов всех натуральных чисел от 11 до 50. 3. Найти сумму всех двузначных нечётных чисел. 4. Найти сумму квадратов всех натуральных чисел от 50 до 90. 5. Найти сумму всех двузначных чётных чисел. Заранее Спасибо!!!!

Answer 1

1)

var i, sum: integer;

begin

   sum:= 0;

   for i:= 1 to 100 do sum:= sum + i;

   write(sum);

end.

2)

var i, sum: integer;

begin

   sum:= 0;

   for i:= 11 to 50 do sum:= sum + i * sqr(i);

   write(sum);

end.

3)

var i, sum: integer;

begin

   sum:= 0;

   for i:= 10 to 99 do if i mod 2 = 1 then sum:= sum + i;

   write(sum);

end.

4)

var i, sum: integer;

begin

   sum:= 0;

   for i:= 50 to 90 do sum:= sum + sqr(i);

   write(sum);

end.

5)

var i, sum: integer;

begin

   sum:= 0;

   for i:= 10 to 99 do if i mod 2 = 0 then sum:= sum + i;

   write(sum);

end.