Гаврилович
5 год назад
Вычислить сумму чётных чисел на отрезке от A до BРешить на языке Pascal
ОТВЕТЫ
Dobrin
Oct 24, 2020
//PascalABC.NET
//Версия 3.3, сборка 1611
begin
write(range(ReadInteger('A='),ReadInteger('B=')).Where(x->x.IsEven).Sum());
end.
//Версия 3.3, сборка 1611
begin
write(range(ReadInteger('A='),ReadInteger('B=')).Where(x->x.IsEven).Sum());
end.
808
Смежные вопросы:
