Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Dgukpd
26.12.2022 03:26 •
Информатика
Даётся одно любое двухзначное число, необходимо вывести на экpан 2 числа из которых оно состоит (в программе паскаль)
Показать ответ
Ответ:
zephy
19.07.2020 12:12
A: integer;
begin
readln(a);
writeln(a - 1,' ',1);
end.
0,0
(0 оценок)
Ответ:
806nikita
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 оценок)
Популярные вопросы: Информатика
Polina212
10.07.2021 13:12
Suppose that x = 1, y = -1, and z = 1. What will be displayed by the following statement? if x 0: if y 0: print(“x 0 and y 0”) elif z 0: print(“x 0 and z 0”) a. x 0 and...
arutik5
30.09.2022 00:33
1 Сенсоры отслеживающие климатические параметры? температурувлажность осадки(датчик дождя и снега) освещённость давление 2 Сенсоры позволяющие определить пространственное...
jcgddrMarins
20.05.2023 15:23
Светлые умы. дана колода из 36 игральных карт (это наш алфавит). каково количество информации, измеренной в битах, заключено в сообщении: а) вытащенная из колоды карта...
1mironov1
12.10.2022 20:21
2. модель об єкта, подана у вигляді його предметної копії а) матеріальна модель б) інформаційна модель в) модель 3. модель об єкта, подана у вигляді його опису а) інформаційна...
димасик138
16.08.2020 01:24
Запись формулы в электронной таблице не может включать в себя а) знаки арифметических орераций б) имена ячеек в)числовые выражения г) текст...
skydux
19.08.2021 01:13
Построить все логические функции с двумя переменными содержащие знак инверсии...
rigorevich17
24.02.2023 15:10
Составьте блок-систему для нахождения количества, суммы и произведения всех натуральных чисел, делящихся на 4 на отрезке [16,64]...
380974769507p06wmj
11.05.2021 11:27
1. My dad was brother in his family. younger the most young the youngest 2. Robin is boy in our class. friendlier the most friendly the friendliest 3. She is in our class....
ajgizaahmetsina
11.05.2021 11:27
УМОЛЯЮ Составить схему предложения: Долго пришлось бы перечислять всех,кто возводит прекрасные современные дома...
dayanaazimbaevа
23.03.2020 06:37
У скільки разів збільшиться швидкість реакції при підвищені температури з 40 до 80 градусів якщо температурний коуфіцієнт дорівнює 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.