Предмет: Информатика,
автор: Onceuponatime12
Нужно найти сумму четных чисел от 1 до 100 с помощью программы PascalABC. Правильно ли я сделала? А если нет, то не могли бы вы мне помощь? Желательно I mod.
Приложения:

Ответы
Автор ответа:
0
Для проверки результата.
begin
seqgen(100, x -> x + 1, 0).Where(x -> x mod 2 = 0).Sum.ToString.Println;
end.
begin
seqgen(100, x -> x + 1, 0).Where(x -> x mod 2 = 0).Sum.ToString.Println;
end.
Похожие вопросы
Предмет: Математика,
автор: Аноним
Предмет: Литература,
автор: margosha0453
Предмет: МХК,
автор: danihejter
Предмет: Математика,
автор: iren6010
Предмет: Литература,
автор: рома2549