Решите на пасхале, найти сумму четных целых чисел - вопрос №88054201 от ariana76 23.05.2023 03:31

Question

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

ariana76 · Answer

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