Войти Регистрация Спроси ai-bota

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

Ответ:

loko177

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.

0,0(0 оценок)

Популярные вопросы: Информатика

bgf62

31.10.2022 14:43

Получить двумерный массив случайных чисел в интервале от -10 до 10. распечатать размером 5х5, заменить все четные строчки значением 100. распечатать измененный...

maksimesaulav46

31.10.2022 14:43

Склавиатуры вводятся 10 чисел найти среднее арифметическое чисел и сумму положительных чисел...

akalitp08ipr

05.06.2021 11:45

Текстовый файл в кодировке кои-8 содержит 128 листов по 64 строки, по 32 символа в каждой. его за 4 минуты. какова скорость соединения, по которому идет передача...

erniaz2005

06.12.2020 04:53

11. Приведите два разных алгоритма решения одной и той же задачи. Задача: Место для ввода текста. Алгоритм А: Алгоритм Б: Для какого исполнителя они предназначены?...

naidanurieva

29.04.2022 09:20

Дан программный код. Определите сколько раз выполнится тело цикла НУЖНО ...

sadpoli

04.01.2020 15:43

Определи значение переменной с после выполнения алгоритма: a : = - 5 ; b : = - a - a ; b : = 3 + a ; c : = b - a * 2 ;...

pomoshvdorogep0arzo

20.06.2022 18:53

Якою цифрою на малюнку позначено команду для зображення структури повного розгалуження в середовищі Scratch?...

helloVika1

20.06.2020 06:47

4. Що з переліку має відношення до сцени проекту Scratch?скрипталгоритм спрайтафонзвуккостюм персонажа...

АннаКольцева

25.06.2021 16:02

В первый год фермер собрал 1080 тонн зерна с двух участков. Во второй год фермер получил на 15% больше урожая с первого участка и на 12% выше урожайности со второго,...

Викуха4А

23.07.2020 01:19

Скласти план дій, який сприятиме достатній руховій активності; обґрунтувати користь занять спортом....

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку