Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
sebasogo
29.08.2022 23:42 •
Информатика
Дано натуральное число: определить а) количество цифр в нем б)сумму его цифр в)произведение его цифр г)среднее арифметическое его цифр д)сумму квадратов его цифр е)сумму кубов его цифр ж)его первую цифру з)сумму его первой и последней цифр
Показать ответ
Ответ:
fari85851
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 оценок)
Популярные вопросы: Информатика
evabelova25
24.03.2020 09:58
После того, как разразился мировой финансовый кризис, компьютерная мышка подумала, что стоит пробраться на склад и взять про запас для себя еще один коврик. Чтобы...
Yanas7
10.02.2021 02:33
Закодируйте в двоичной форме свою фамилию, записанную латинскими буквами, используя таблицу кодировки ansi моя фамилия рогачев. 20 ....
keksikgovad
10.02.2021 02:33
Решить по информатике(с решением) 1)статья,набранная на компьютере, содержит 8 страниц, на каждой странице 40 строк,в каждой строке 64 символа. в в одном из представлений...
MIshaDo
10.02.2021 02:33
Чем отличается chat конференция от видеоконференция...
Dyadya11
20.05.2023 14:12
Переставьте буквы в слове превратите вкусную булочку в средство передвижения по морю...
madoleh
20.05.2023 14:12
Разработать блок схему, составить программу, произвести отладку и тестирование: для вычисления силы f, которая действует на тело массой m, которое движется с ускорением...
Masha110502
20.05.2023 14:12
Запишите числа в порядке возрастания: 11101011 двоичная; 153восьмиричная; e36fшеснадцатиричная; 1989десятиричная...
danul1414
16.02.2021 16:16
Чёрно-белое (без градаций серого) растровое графическое изображение имеет размер 10 x 10 точек. какой объём памяти займёт это изображение?...
anastasiyakorc
02.05.2020 21:59
По каналу связи сообщения, каждое из которых содержит 15 букв а, 10 букв б, 6 букв в и 4 буквы г (других букв в сообщениях нет). каждую букву кодируют двоичной...
070974zZ
30.05.2023 16:25
Файл эволюция.ppt хранится на жестком диске в каталоге презентации, который является подкаталогом каталога биология. в таблице фрагменты полного имени файла: а)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
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.