Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
20022013настя
19.07.2021 13:57 •
Информатика
Решить в паскале. 1) в двузначное число вписать ноль в середину и получить трехзначное число 2)задано двузначное число. чему равна первая цифра числа?
Показать ответ
Ответ:
homkagamaet
20.06.2020 06:09
Program dvyzna4;
var i:integer;
begin
repeat
writeln('Введите число='); readln(i);
until (i>=10) and (i<=99);
writeln('1-ая цифра=',i div 10);
writeln('Трехзначное=',i div 10,'0',i mod 10);
end.
0,0
(0 оценок)
Ответ:
1innic11
20.06.2020 06:09
1)
Var x:inreger;
Begin
readln(x);
x:=((x div 10)*100)+(x mod 10);
writeln(x);
End.
2)
Var x:integer;
Begin
readln(x);
x:=x div 10;
writeln(x);
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
Anonim654321
12.08.2022 08:41
На бесконечное поле, расчерченное в клетку, капнули субстанцией с микроорганизмом, который на каждом ходу поглощает клетки, соседние по стороне с уже поглощенными. Первым ходом...
salihvalishev
13.06.2020 21:39
Укажите, в какой из групп устройств перечислены только устройства вывода информации: а) принтер, монитор, акустические колонки, наушники б) клавиатура, сканер, микрофон, мышь в)...
wildforme
24.05.2023 01:31
На вході маємо цілочисельний список значень та число n- кількість значень в цьому списку. На виході повний аналіз цього списку за кожним із таких пунктів: а) кількість значень...
yulia24082
02.11.2022 20:04
●●По перемещения роботы бывают и мобильными. Укажите, к какому типу перемещения относятся роботы, представленные на картинках...
urkashkz777
21.06.2020 21:06
ДАМ Запишіть у зошит формули для обчислення значень наведених числових виразів в електронній таблиці....
danifoxyforevep08iko
13.02.2021 22:26
Д) е)htte is avниАчилт- не іtіну,9876+5 +432 дни1987654321на услуга ури- у нугай.0 1 2 3 4 5 6 7 8 90...
typaydevochka
27.05.2022 18:44
Заданы фамилия, имя и отчество учащегося, разделенные одним или несколькими пробелами. напишите программу, печатающую фамилию ученика и его инициалы (инициал заканчивается точкой)....
mmrkrolik
27.07.2020 13:19
Напишите программу, которая вводит строку и выводит ее, сокращая каждый раз на 1 символ с конца строки до тех пор, пока в строке не останется 1 символ. входные данные: ввести строку...
ModerBlet
24.04.2022 06:44
Какой корень у слова промышленности...
WaysWhite
24.04.2022 06:44
Хто він такий,дон кіхот? мрійник? дивак? безумець? шляхетна людина?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var i:integer;
begin
repeat
writeln('Введите число='); readln(i);
until (i>=10) and (i<=99);
writeln('1-ая цифра=',i div 10);
writeln('Трехзначное=',i div 10,'0',i mod 10);
end.
Var x:inreger;
Begin
readln(x);
x:=((x div 10)*100)+(x mod 10);
writeln(x);
End.
2)
Var x:integer;
Begin
readln(x);
x:=x div 10;
writeln(x);
End.