Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Печенькавасилиса
03.03.2022 10:08 •
Информатика
Даётся одно любое двухзначное число, необходимо вывести на экpан 2 числа из которых оно состоит (в программе паскаль)
Показать ответ
Ответ:
nastyakramskay
19.07.2020 12:12
A: integer;
begin
readln(a);
writeln(a - 1,' ',1);
end.
0,0
(0 оценок)
Ответ:
maxbf
19.07.2020 12:12
Program chisla;
uses crt;
var a,b,c : integer;
begin
write('Введите двузначное число: ');
Readln(a);
if (a>99) or (a<10) then Writeln('Введено не двузначное число') else
begin
b:=a div 10;
c:=a-(b*10);
Writeln(b,',',c);
end
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
sasagolyakov
29.01.2023 20:06
На вход алгоритма подаётся натуральное число N. Алгоритм формирует по нему новое число R следующим образом: 1) Строится двоичная запись числа N. 2) К этой записи...
kcatuscha2016
11.01.2023 08:48
информатика! нужно очень...
мика0955
22.11.2022 18:29
с инфой Дано 3 числа а, b, с найти среднее арифмитическое Вроде составила, а в чем ошибка...
renata59
04.10.2021 18:08
Дано 3 числа а, b, c найти среднее арифмитическое В чем моя ошибка объясните...
Jikarinkite
08.02.2021 09:02
Что такое компьютерная сеть и можно ли избежать записи ? что такое кэш? как просмотреть...
сказкамоямечта
23.01.2021 04:34
Растровым графическим редактором не является: 1)gimp 2)paint 3)adobe photoshop 4)coreldraw...
7LoLiTa7
05.08.2022 18:56
Провести сравнительный анализ функций версий Windows 10 и Windows 7. • Почему количество пользователей Windows 10 резко увеличилось? • Как в дальнейшем будут развиваться...
Нура191
11.07.2022 02:47
Открытка занимает 4,2 Гбайт памяти. Определите устройство, на которое можно разместить данный файл (Подчерните устройство). [2] Устройства памяти Свободная память...
makao1
24.05.2022 22:29
Який з типів анімаційних ефектів потрібно обрати для того щоб анімація відбувалася під час появи об’єкта? Шляхи переміщення Виокремлення Вихід Вхід Питання №4 ? Який...
Янияру
02.10.2020 11:57
1.сформулируйте алгоритм получения дополнительного кода отрицательного числа 2....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
readln(a);
writeln(a - 1,' ',1);
end.
uses crt;
var a,b,c : integer;
begin
write('Введите двузначное число: ');
Readln(a);
if (a>99) or (a<10) then Writeln('Введено не двузначное число') else
begin
b:=a div 10;
c:=a-(b*10);
Writeln(b,',',c);
end
end.