Дана последовательность чисел
найти сумму чисел меньше 10 или больше 50
написать программу на языке паскаль

информатика 9 класс

Fat9l Fat9l    1   18.12.2019 13:11    7

Ответы
mayoll mayoll  10.10.2020 21:32

===== PascalABC.NET =====

begin

 var n := ReadInteger('Число членов последовательности:');

 var s := ReadSeqInteger('Вводите:', n)

     .Where(p -> (p < 10) or (p > 50)).Sum;

 Println('Сумма отобранных членов равна', s)

end.


Дана последовательность чисел найти сумму чисел меньше 10 или больше 50 написать программу на языке
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика