Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
1234567Саша
04.07.2021 22:54 •
Информатика
Если цифра сотен равна 8 или 9, то число домножить на количество десятков, если число сотен от 3 до 5, то у числа оставить цифры сотен и десятков, в противном случае из исходного числа вычесть число сотен? составьте
Показать ответ
Ответ:
nikdaniil04
02.10.2020 07:24
Pascal
var
a,s,d,e : integer;
begin
readln (a);
s := a div 100; //Узнаем цифру сотен
d := (a div 10) - (a div 100) * 10; //узнаем цифру десятков
e := a mod 10; //узнаем цифру единиц
case s of
8,9 : a := a * d;
3..5 : a := s * 10 + d;
else
a := a - s;
end;
writeln (a);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
ghcfgnyhvjt
06.02.2021 03:22
Где можно найти или может у когото есть FEO диаграмма для продуктового магазина...
olga180982
29.09.2022 19:43
Промоделировать взлет двухступенчатой ракеты массой M. Ракета летит время t1 c первой работающей ступенью и t2 со второй. Сила тяги первой ступени – F1, второй – F2. Ракета...
ibg478
28.01.2021 03:46
Решить тест по ассемблеру в течении 40 - 50 минут (можно и с интернета, главное чтоб сделали правильно, прст времени на то и другое нет, ещё программу писать)...
potehin30
16.02.2021 17:01
Скласти блок-схему розв язання прикладу x=3a+2b...
Allagivorgizova1392
13.02.2020 09:07
Карандаш прямоугольник кисть это инструменты для создания или редактирования изображения...
tatiana85gandzii
31.12.2021 05:46
Розпишіть, будь ласка, у байтах: 1 кб, 1мб, 1гб, 1 тб....
Яумницакрасотка
31.12.2021 05:46
Запишите на языке паскаль программу которая для произвольного натурального двузначного числа определяет a) сумму и произведение его цифр б) число,образованное перестановкой...
vladus20012
23.08.2020 10:54
№1. рассчитать размер файла для сотового телефона размером 100*100 пикселей и количеством цветов в палитре - 16. № 2. рассчитать количество бит, необходимых для кодирования...
stefa91
05.08.2020 20:21
Составить алгоритм вычисления площади треугольника по формуле герона...
07Лизочек07
30.08.2021 18:16
Массив 5х5 заполнить случайными числами [0; 2]. посчитать количество максимальных элементов в массиве под побочной диагональю....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var
a,s,d,e : integer;
begin
readln (a);
s := a div 100; //Узнаем цифру сотен
d := (a div 10) - (a div 100) * 10; //узнаем цифру десятков
e := a mod 10; //узнаем цифру единиц
case s of
8,9 : a := a * d;
3..5 : a := s * 10 + d;
else
a := a - s;
end;
writeln (a);
end.