1) даны а,b(целые) найти
сумму всех четных чисел в
диапозоне а до b
нкжно решить в паскале с
цикла с
параметром( for)
2)найти среднее
арифметическое от а до b(в
паскале с for)
​

PascalABC.NET

1)

begin

 var (a, b) := ReadInteger2('Введите a, b:');

 var s := 0;

 for var i := a to b do

   if i mod 2 = 0 then

     s += i;

 Println(s)

end.

2)

begin

 var (a, b) := ReadInteger2('Введите a, b:');

 var s := 0;

 for var i := a to b do

   s += i;

 Println(s / (b - a + 1))

end.

1) begin

var (a, b) := ReadInteger2('Введите a, b:');

var s := 0;

for var i := a to b do

if i mod 2 = 0 then

s += i;

Println(s)

end.

2) begin

var (a, b) := ReadInteger2('Введите a, b:');

var s := 0;

for var i := a to b do

s += i;

Println(s / (b - a + 1))

Конец, ну как-то так