Решите на пасхале, найти сумму четных целых чисел - вопрос №88054201 от Незнайка1111ункркр 16.01.2023 07:45

Question

Информатика: Решите на пасхале, найти сумму четных целых чисел на промежутке от 1 до k. формат ввода: на вход подается неотрицательное, целое число k, не превосходящее 30000. формат вывода: целое число. пример входных данных 10 пример выходных данных 30

Незнайка1111ункркр · Answer

//PascalABC.NET версия 3.3begin  seqgen(readinteger(),x- x+1).Where(x- x mod 2 = 0).Sum.Println;end.Пример работы программы:1656806 ...