В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Lolycat
Lolycat
16.04.2022 19:28 •  Информатика

Напечатай точную копию данного набора служебных слов языка Паскаль

if program begin var integer byte string whiteIn readIn end then char​

Показать ответ
Ответ:
ПолинаПять
ПолинаПять
15.02.2021 19:11

10001_{3}

Объяснение:

Для начала переведем 127_{9} в десятичную 7*1+2*9+1*81=106. Перенесем 24 вправо 106-24=82. Число 82_{10}=145_{x} Нужно 82 перевести в другую систему, вопрос в какую. Честно говоря взял наугад 7 (основание должно быть явно  меньше 10 и даже 9). Делим нацело 82/7=11 + 5 остаток (это будет младший разряд) теперь делим 11/7=1+4 (остаток будет второй цифрой) и единичка (на 7 больше не делится) будет самым старшим разрядом.

Теперь, как я понял, 82_{10} нужно перевести в троичную (если другое число, не 82, то переведите по примеру). 82/3=27+1(остаток, младший разряд), 27/3=9+0(0 это следующий разряд), 9/3=3+0 (0 это третий разряд), 3/3=1+0 (0 это четвертый разряд), и осталась единичка, которая на 3 не делится (нет целой части от деления). Это будет самый старший разряд. Получили10001_{3}.

0,0(0 оценок)
Ответ:
иришка276
иришка276
01.05.2022 10:10

1в.

1)Код Pascal

begin

write('N = ');

readln(N); { <-- вводим трехзначное число }

writeln;

N := N mod 100; { <== Последние две цифры }

{ Выводим последнюю и среднюю цифры числа: }

writeln('Последняя цифра: ', N mod 10);

writeln('Средняя цифра: ', N div 10);

readln

end.

2)

var

N: word; { Трехзначное число }

t1, t2, t3: byte; { Цифры трехзначного числа }

begin

write('Введите трехзначное число: ');

readln(N); { <-- вводим трехзначное число }

writeln;

t3 := N mod 10; { <== третья цифра }

N := N div 10; { <== число созданное первыми двумя цифрами }

t2 := N mod 10; { <== вторая цифра }

t1 := N div 10; { <== первая цифра }

writeln('Сумма цифр: ', t1 + t2 + t3);

readln

end.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота