Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
СКОФИЕЛД
14.02.2022 17:30 •
Информатика
Дано натуральное число: определить а) количество цифр в нем б)сумму его цифр в)произведение его цифр г)среднее арифметическое его цифр д)сумму квадратов его цифр е)сумму кубов его цифр ж)его первую цифру з)сумму его первой и последней цифр
Ответ:
anechkasun1
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 оценок)
Популярные вопросы: Информатика
korostin2004
20.08.2020 17:10
4. Напишите, что такое относительная ссылка и приведите пример....
никита3501
07.12.2021 13:25
Операционная система Все программы, записанные в Винчестеренабор программ, связывающих пользователя и аппаратуру и управление действиями с процессором, внешними устройствами, файлами...
Околофутбольник
28.04.2023 22:14
Перевести в десятичную систему счисления: 11100110, 1010101, 1001001, 10001000, 10001010...
marina02427
28.04.2023 22:14
Як розгадати ребус не можу його розвязати шо робити...
Inna050798
12.09.2022 07:15
1символ кодируется 16 битами.найти объем фразы в 6 литрах 6000 миллилитров.ответ в битах...
Алена0607
24.01.2023 01:20
Что такое персональный компьютер и какие его виды существуют?...
fantomidri
24.01.2023 01:20
3. в некотором каталоге хранился файл миша.doc, имевший полное имя d: \2015\фио\ миша.doc. в этом каталоге создали подкаталог имя и файл миша.doc переместили в него. укажите полное...
тони2006
08.08.2020 20:11
3. в некотором каталоге хранился файл миша.doc, имевший полное имя d: \2015\фио\ миша.doc. в этом каталоге создали подкаталог имя и файл миша.doc переместили в него. укажите полное...
vinchez1
25.03.2022 07:01
Сколько различных символов можно закодировать при 8 бит?...
osama95w
13.10.2021 01:27
32768 бит это сколько байт и килобайт...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.