Question

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

Answer 1

===== 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.

Answer 2

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))

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