Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Яяяячканр345
26.06.2021 03:34 •
Информатика
Паскаль. задано натуральное число n. вывести первые две цифры заданного числа.
Показать ответ
Ответ:
twilightsun90
06.10.2020 10:46
Var n:integer;
Begin
Write('n = ');ReadLn(n);
While n div 100 > 0 do
Begin
n:=n div 10
End;
WriteLn(n)
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
прждлшеджж
03.08.2022 15:08
Вблокноте дан текст написать программу которая выводит наиболее часто встречающиеся символы....
vadim2810
28.05.2022 04:33
Стестами по ! а1. определите значение целочисленных переменных a и b после выполнения фрагмента программы: a : = 3 + 3*4; b : = (a div 10) + 4; a : = (b mod 10) + 2;...
света940
28.05.2022 04:33
Запишите в развернутом виде числа: а)а8=143511; б)а2=100111; в)а16=143511; г)а10=143,511; д)а8=0,143511; е)а16=1аз,5с1....
dyumaevanastasy
19.07.2022 10:00
Как подсчитать на калькуляторе сколько мне дней...
петро26
26.06.2022 17:41
Найдите экстремумы функции...
pka004
31.07.2020 23:51
Заполните пустые клеточки ...
lancerevol12p0cjct
29.06.2022 19:48
1. Кучерявые волосы – доминантный признак. Как наследуется этот признак в 1 поколении, если у одного из родителей прямые волосы (генотип аа), у другого кучерявые (генотип...
egorsh1
04.11.2020 12:39
Охарактеризуйте влияние физической активности на здоровье. Приведите примеры....
yvtcrvt
06.06.2020 20:40
Естество Иисус Христос класс)...
ulaborodina57
06.06.2020 20:40
Почему не умирает фольклор?»...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Begin
Write('n = ');ReadLn(n);
While n div 100 > 0 do
Begin
n:=n div 10
End;
WriteLn(n)
End.