Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
ЛолКекЧебуречек
25.03.2023 17:12 •
Информатика
Если цифра сотен равна 8 или 9, то число домножить на количество десятков, если число сотен от 3 до 5, то у числа оставить цифры сотен и десятков, в противном случае из исходного числа вычесть число сотен? составьте
Показать ответ
Ответ:
Skapisheva15151515
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 оценок)
Популярные вопросы: Информатика
akiceijuro
27.01.2022 14:23
Нужно как можно скорее выполнить эти задания. Что конкретно писать в 6 и 8 задании я не понимаю. Заранее огромное....
EvGeniusYT
24.02.2020 18:03
Устройство управления (ПО) и арифметико-логи - ческое устройство (AЛҚ) (как правило, они объединены в центральный процессор), память, внешняя память, связь устройств ввода и...
danilaandriyanov
21.05.2021 01:32
Решите арифметические 1. а) 1 010 101(2) + 10 000 101(2); б) 1 111 011 101(2) + 101 101 000(2);в) 100 100 111,001(2) + 100 111 010,101(2); г) 607,54(8) + 1620,2(8); д) 3BF,A(16)...
полинка20072
29.07.2020 00:25
Изобразить плоскую область, в которой логическое выражение y ≤ (x+2)(1-x) and y ≥ x будет принимать значение true...
TopThan
29.07.2020 00:25
Задан адрес электронной почты в сети интернет: [email protected]каково имя владельца электронного адреса?...
comet55
09.06.2022 03:00
Найти площадь садовых участков. 30на30, 30 в 2раза больше, 30 на 10 меньше. на каждом из этих участков дом занимает десятую часть, сад- половину, а огород- треть участка.будет...
ilyakylloRU
09.06.2022 03:00
Найдите значение выражения 6(1/6)^2-19*1/6...
Нифи2005
09.06.2022 03:00
Найдите значение выражения (3sin(а+2п)-2cos(п/2+а))/2sin(а-2п)...
kedasvetlana
09.06.2022 03:00
Утворити від поданих іменників присвійні прикметники, записати їх у називному відмінку однини чоловічого роду і називному відмінку однини жіночого роду. записати подані іменники...
aftullaeva2
09.06.2022 03:00
Составьте уравнения реакций и расставьте коэффициенты, используя формулы указанных веществ: 1) фосфорная кислота + гидроксид калия → фосфат калия + вода 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.