Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
gfg9y
25.08.2021 01:08 •
Информатика
Напишите программу для решение с клавиатуры вводится целое число от 1 до 99 если число2-значное ,то вывести кол-во десятков в числе,иначе вывести введенное число увеличенное на 1 с dif и mod paskal
Показать ответ
Ответ:
PROKUROR111
09.10.2020 06:32
Var a:integer;
Begin
read(a);
If a>10 then a:= a div 10
else a:= a+1;
writeln(a);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Ч1димасик1Ч
18.03.2023 18:09
Модификациялық құралдарына не жатады...
ЭвелинаРожкова
11.10.2021 19:10
Скільки користувачів можуть працювати з одним і тим самим файлом одночасно...
alisa0901
20.07.2022 16:05
Одноканальный звук длительностью 1 сек оцифрован с частотой 20480 Гц и разрядностью 24 бит. Определите размер полученного файла в Кбайтах....
fhlurx
19.03.2020 23:52
Одноканальный звук оцифровался с частотой 20480 Гц. После записи 4 сек получился файл размером 80 Кбайт. Определите разрядность кодирования в битах....
Flif
29.05.2020 17:32
1. Какое двоичное число представлено в виде многочлена? Как выглядит десятичная запись этого числа? a) 1⋅2^5 + 0⋅2^4+0⋅2^3 + 0⋅2^2 + 1⋅2^1 + 0⋅2^0 б) 2^5 + 2^3 + 2^0...
kril20101
03.03.2020 22:55
задание Выполните задания для исполнителей (покажите как выполняли действия): 1.) У исполнителя Калькулятор две команды, которым присвоены номера: 1. прибавь 1 2....
anjelikakotiv
07.03.2020 18:49
Чем ограничивается максимальный размер физической памяти, которую можно установить в компьютере определенной модели: 1. Характеристиками аппаратуры компьютера. 2....
мозг2017а
13.01.2020 08:23
Описать класс, реализующий тип данных «матрица». Класс должен реализовывать возможность нахождения количества столбцов, начинающихся с отрицательного числа. Сделайте...
ishoeva
02.03.2020 03:21
Найдите объем видеопамяти, необходимой для хранения изображения, занимающего весь экран монитора с разрешением 1366x768 и палитрой из 512 цветов. ответ запишите в...
kazmerovichvika
28.04.2021 15:57
ИНФОРМАТИКА Протабулювати функцію z= 1/x на проміжку (-4; 3] з кроком h=0.52. Знайти середнє арифметичне тих значень функції у, для яких виконуються нерівності z 0...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Begin
read(a);
If a>10 then a:= a div 10
else a:= a+1;
writeln(a);
end.