1) Даны а,b(целые) найти
сумму всех четных чисел в
диапозоне а до b
Нкжно решить в паскале с
помощью цикла с
параметром( FOR)
2)Найти среднее
арифметическое от а до b(В
паскале с помощью For)
сумму всех четных чисел в
диапозоне а до b
Нкжно решить в паскале с
помощью цикла с
параметром( FOR)
2)Найти среднее
арифметическое от а до b(В
паскале с помощью For)
More Questions From This User See All
Answers & Comments
===== 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))
Конец, ну как-то так