1. Найдите сумму всех кратных 5 чисел в диапазоне от 1 до 100 2. Вычислить и вывести **...

Question

1. Найдите сумму всех кратных 5 чисел в диапазоне от 1 до 100 2. Вычислить и вывести на экран 4 первых элемента числового ряда, заданного формулой y =(1/2x )+(1/3x)

Answer 1

1)

var i, sum: integer;

begin

   sum:= 0;

   for i:= 1 to 100 do if i mod 5 = 0 then sum:= sum + i;

   write(sum);

end.

2)

var x: real;

begin

   for x:= 1 to 4 do writeln(0.5 * x + 1 / 3 * x);

end.