Ответы на вопрос:
// pascalabc.net 3.3, сборка 1549 от 17.10.2017 // внимание! если программа не работает, обновите версию! begin var a: =readseqintegerwhile(x-> x< =100).toarray; writeln('количество четных чисел равно ',a.where(x-> x.iseven).count); a.transform(x-> x.isodd? x*x: x); a.println end. пример 35 24 38 83 110 количество четных чисел равно 2 1225 24 38 6889 begin writeln('s=',readseqintegerwhile(x-> x> =0).select(x-> x mod 10).sum) end. пример 16 24 19 21 45 0 23 -21 s=28 begin var n: =readinteger('n='); var st: =new stack < integer> ; while n> 0 do begin st.push(n mod 10); n: =n div 10 end; var a: =st.toarray; a.println(','); writeln('сумма цифр: ',a.sum); writeln('сумма нечетных цифр: ',a.where(x-> x.isodd).sum); writeln('сумма старшего и младшего разрядов: ',a.first+a.last); end. пример n= 53214212 5,3,2,1,4,2,1,2 сумма цифр: 20 сумма нечетных цифр: 10 сумма старшего и младшего разрядов: 7
Популярно: Информатика
-
Zagitova11208.06.2020 08:21
-
НикаМарьям11.01.2022 01:09
-
тигрица08624.04.2020 18:36
-
lasalina30.11.2020 01:10
-
elenakazimirov30.08.2020 13:03
-
PineappleRomka05.10.2022 07:26
-
nastyagru115.01.2021 09:00
-
машазайка129.10.2020 01:59
-
Denis12o922.03.2020 03:13
-
Анютка4545807.06.2023 01:27