Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
tasyakondrateva0
10.02.2023 16:42 •
Информатика
Дано число. если оно делится на 11, то уменьшить число в 11 раз, в противном случае уменьшить число на 11.
Показать ответ
Ответ:
krohaela
30.09.2020 11:08
Program Znanija;
var a:integer;
begin
readln(a);
if a mod 11 = 0 then
writeln(a / 11)
else
writeln(a - 11);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Маша4541
26.04.2022 22:06
Задано дві функції від двох змінних x, y. необхідно скласти програму мовою c, що обчислює значення цих функцій. (перед написанням програми спростити задані вирази та ввести...
AndroidBot2018
20.08.2020 21:46
На числовой прямой даны два отрезка: p = [3, 9] и q = [4, 12]. выберите такой отрезок a, что формула ( (x ∈ а) → (x ∈ p) ) \/ (x ∈ q) тождественно истинна, то есть принимает...
lenamarydina
02.05.2021 04:37
Один мудрец писал: мне 33года. моей матери 124 года, а отцу 131год. вместе нам 343года. какую систему счисления использовал мудреци сколько ему лет.?...
Аккаунт удален
24.09.2021 13:09
Определите, какое из указанных имен файлов удовлетворяет маске a*.do? (символ «*» это любая последовательность символов произвольной длины, в том числе и пустая последовательность,...
veta991
13.11.2022 07:36
В программе Publisher можно внести бизнес-информацию по умолчанию, которая затем будет использована во всех шаблонах публикаций??...
ByArts1000
19.08.2020 08:26
Файл размером 11 Кбайт передаётся через некоторое соединение со скоростью 1 Кбит/с. Определите на сколько секунд быстрее можно передать этот же файл через другое соединение...
m20m
06.12.2021 02:01
1. Написать программу, которая будет считать сумму введенных с клавиатуры чисел до тех пор, пока не будет введен ноль.2. Написать программу (с циклом While) которая находит...
HoRMaX
22.03.2023 09:25
Раскрой скобки и упрости выражение: (22+b)-9. ответ: выражение без скобок (порядок записи слагаемых не менять, записывать их без промежутков, переменную вводи с латинской раскладки!)...
fivmif
05.12.2022 06:25
На карте России цифрами обозначены формы рельефа. Выберите из предложенного списка географические названия этих форм рельефа и впишите в пустые ячейки на схеме.Становое, Васюганская,...
тараканеше
28.04.2020 09:27
Бжб Дуниежузи тарихы ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a:integer;
begin
readln(a);
if a mod 11 = 0 then
writeln(a / 11)
else
writeln(a - 11);
end.