Ответы на вопрос:
// pascalabc.net 3.3 begin var n: =readinteger('n ='); var a: =readseqinteger('введите '+n+' чисел: ',n); var sum1: =a.sum; var x: =sum1; var sum2: =0; while (x> 0) do begin sum2: =sum2+x mod 10; x: =x div 10; end; writeln('sum1 = ',sum1,' sum2 = ',sum2,' sum1/sum2 = ',sum1/sum2); end. пример: n = 5 введите 5 чисел: 2 7 4 3 5 sum1 = 21 sum2 = 3 sum1/sum2 = 7
Популярно: Информатика
-
MishaBor09.07.2022 11:24
-
Cingareda30.08.2020 05:55
-
MozgVeka25.03.2021 12:12
-
bochinskaya0614.01.2020 17:48
-
alexxxxarchenko31.01.2022 22:27
-
125654554407.03.2022 04:28
-
hjccbyfoyf6ui15.03.2023 21:47
-
licicha27.01.2023 01:10
-
Cociheyuajnqhvedoxbs15.08.2020 23:40
-
yanasyperyanaco06.12.2022 10:54