Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
Anastasia934
29.01.2022 13:03 •
Информатика
Дано натуральное число: определить а) количество цифр в нем б)сумму его цифр в)произведение его цифр г)среднее арифметическое его цифр д)сумму квадратов его цифр е)сумму кубов его цифр ж)его первую цифру з)сумму его первой и последней цифр
Ответ:
samuraterikov0
03.07.2020 11:47
А)
var
N, k: longint;
begin
write('N=');readln(N);
k := 0;
while N > 0 do
begin
N := N div 10;
k := k + 1;
end;
write('k=', k);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
fheeubeujdshebj
20.09.2021 08:48
Вычисли сумму чисел в MS Excel. 1. 224; 7; 1895; 90,3 2. 224; 7; 1895; 90,3; 45,9...
ankateren
21.11.2020 17:08
Дан фрагмент программы: x:= 85; write ( ответ: , х: 2, км/ч ); На экране будет выведено: км/ч ответ: 85 ответ: 85 км/ч...
kseniafilipovich09
24.11.2022 05:48
1. Верно ли, что для каждой задачи существует единственный алгоритм решения? ответ обоснуйте.2. Два друга по-разному ищут ошибки в программах. Кирилл, написав программу, сразу...
Flaen1
16.06.2022 21:49
Напишите наименьшее число x,для которого истинно высказывание:НЕ(x 45)И НЕ(в числе x нет одинаковых цифр)...
andreymikilov
07.10.2021 11:03
Сколько натуральных чисел расположено в интервале 758 ≤ x ≤ AE16...
дэнчик60
20.01.2022 21:35
На столе X куч камешков по 1 и Y куч камешков по 2. Два игрока по очереди берут 1 или 2 камешка из одной любой кучи. Победившим считается тот, кто возьмёт со стола последние...
liliakhalilova
08.03.2020 18:10
ПАСКАЛЬ Дан одномерный целочисленный массив A[10]. Массив вводится с клавиатуры. Написать программу, которая будет находить произведение четных элементов массива....
dencommission
03.02.2020 08:06
КРОССВОРД ПО ТЕМЕ: УСТРОЙСТВА КОМПЬЮТЕРА По горизонтални 2. Устройство вывода информации на печать. 4. Устройство ввода информации (базовый комплект). 6. Устройство управления...
xelasaa48
14.06.2022 03:54
Дан целочисленный массив из 30 элементов. Элементы массива могут принимать значения от - 20 до 20 - сведения о температуре за каждый день ноября. Напишите программу, которая...
nurija090675
22.11.2022 18:34
Написать первые 70 чисел 18-ой системы счисления...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
var
N, k: longint;
begin
write('N=');readln(N);
k := 0;
while N > 0 do
begin
N := N div 10;
k := k + 1;
end;
write('k=', k);
end.