tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Дано натуральное число n. найти
Дано натуральное число n. найти величину, обратную среднему арифметическому цифр заданного числа. программа в паскале.
DzhabbarovaS
2 01.09.2019 23:40
2
Ответы
Кролик200
06.10.2020 10:48
Var n,S,k:integer;
Begin
Write('n = ');ReadLn(n);
S:=0;
k:=0;
While n > 0 do
Begin
S:=S+n mod 10;
k:=k+1;
n:=n div 10
End;
WriteLn(k/S);
End.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Nesty111111
09.07.2019 00:10
Написать программу паскаль ввода с клавиатуры двух чисел и вывода на экран меньшего из них...
rekiol544
30.05.2023 16:56
Створити програму для визначення середньої кількості коштів на добу Вам потрібно ввести: - Загальну суму бюджету - Кількість днів, на які потрібно розділити бюджет Порахувати:...
МаринаДоблер
30.05.2023 16:57
код программы такой: import pygame import random # Инициализация pygame pygame.init() # Определение размеров экрана и создание окна screen_width = 800 screen_height = 600...
lilpupm
14.04.2020 21:24
Выберите доменное имя сервера, на котором хранится страница: http://detionline.com/assets/files/research/BookTheorye.pdf...
yanachor25
14.04.2020 21:24
Запишите значение выражения в десятичной системе счисления. 11001₂ + 166₈ + CD₁₆ =...
dftrek
14.04.2020 21:24
ОБЪЯСНИТЕ МНЕ КАК ЭТО И ЧТО...
CoolGirl78
14.12.2021 14:44
13-тапсырма. «Абай ұлы тұлға туралы және...
Bars1995
14.12.2021 14:44
ОЧЕНЬ назвіть 6 ознак якими амфібії відрізняються від рептилій та обґрунтуйте які переваги отримали рептилії від амфібій...
Goym
14.12.2021 14:44
Визначте відносну густину пентану за азотом (з розрахунками)...
dianaroza01
14.12.2021 14:44
определите тему этих двух произведений составьте диаграмму венна сравнив их...
Популярные вопросы
Кто признался (он короче китаец) в любви Дженни из Blackpink?Как его...
2
Допишите для практически осуществляемых процессов уравнения реакций,...
1
Середня лінія трапеції дорівнює 12см,а одна з основ 9см.Знайдіть другу...
3
1. Какой император решил «по Европе проездиться и в разных государствах...
3
у 1051 році без згоди константинопольського патріарха новим київським...
3
Подставьте число вместо троеточия, чтобы равенство стало верным:...
2
Контрольна робота з укр. Мови...
1
Встановіть відповідність між хімічним знаком елемента та зарядом йону,...
1
Выберите верные суждения и запишите цифры, под которыми они указаны....
3
1)-47*83+37*83=2)(-240:5-(-32*4)):(-16)=...
3
Begin
Write('n = ');ReadLn(n);
S:=0;
k:=0;
While n > 0 do
Begin
S:=S+n mod 10;
k:=k+1;
n:=n div 10
End;
WriteLn(k/S);
End.