Ответы на вопрос:
Var i,n,m,x,k: integer; s: string; begin read(n); while (n> 0) do begin m: =(n mod 10); n: =(n div 10); x: =x+m; k: =k+1; end; writeln('сума : ',x); writeln(' середнє арифметичне : ',x/k: 0: 1); end.
Популярно: Информатика
-
викуха30831.10.2022 23:48
-
tasirevaliza7930.11.2021 13:02
-
d1m4Y29.10.2021 15:42
-
paris55526.05.2020 12:04
-
artemyaros2005oxkd2q09.12.2022 04:08
-
Anuliks06.09.2022 14:35
-
chudmaev200322.02.2020 09:01
-
avladimirovna32407.12.2022 01:17
-
Lena341125.07.2021 15:39
-
ketiler1311.02.2020 19:07