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.