1. Информатика
  2. Дано число. найти среднее

Дано число. найти среднее арифметическое его цифр

SofaCat1231 SofaCat1231    3   12.06.2019 16:30    0

Ответы
mokajuma77 mokajuma77  02.10.2020 00:37
Var a,s:integer;
begin
readln(a);
s:=0;
While a>9 do
begin
s:=a mod 10;
a:=a div 10;
end;
s:=s+a;
writeln(s);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
NastiaForever18 NastiaForever18  07.03.2021 12:36
Задание 1 Как правильно оформлять реферат по информатике Подготовьте доклад на тему Системы компьютерного перевода (5-10 страниц). При подготовке доклада используйте правила...
ХарламоваяАня ХарламоваяАня  07.03.2021 12:38
Написать программу в python...
zangeevdima zangeevdima  07.03.2021 12:42
Записать на паскале строчно y=f(x1)+f(x2)*f(x3) и f(x)=∑(i=1)^4▒(x^(2/1)+lnx^i sinx^3)...
peterburg1 peterburg1  12.04.2021 00:21
Укажи минимальный объём памяти (в битах), достаточный для хранения любого растрового изображения размером 32 x 32 пикселя, если известно, что в изображении используется палитра...
СергейРовкин СергейРовкин  12.04.2021 00:07
Скільки повторень відбудеться якщо x:=10+1 until x 10​...
Бодя386 Бодя386  12.04.2021 00:07
Сколько в среднем наберёт студент на испытательном экзамене, который набрал 4 раза по 2 раза по и 1 раз 21 ? A) 25 B) 26 C) 21,5 D) 25,...
ГрозаТараканов ГрозаТараканов  12.04.2021 00:06
Значення х після виконання циклу x:=7+1until x 10​...
AlinaFirdysovna5 AlinaFirdysovna5  12.04.2021 00:04
1) У змінній letters міститься список [ a , b , c , d ]. Яке значення виразу letters[:2]?(это Python) 2)У змінній letters міститься список [2, 4, 6, 8, 10]. Як присвоїти...
rita1501 rita1501  01.02.2021 20:47
Написать программу в Паскалey=x-10ИS=1/2ah...
SvetaMew SvetaMew  01.02.2021 20:49
Дані дійсні числа х,у. вичислити я вичислити через FLOAT пайтон...

Популярные вопросы