Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
sviridovakatya8
12.03.2021 07:56 •
Информатика
Если цифра сотен равна 8 или 9, то число домножить на количество десятков, если число сотен от 3 до 5, то у числа оставить цифры сотен и десятков, в противном случае из исходного числа вычесть число сотен? составьте
Показать ответ
Ответ:
вщылыл234
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 оценок)
Популярные вопросы: Информатика
Алёнатян111
31.07.2021 08:56
Вася забыл свой цифровой пин-код от старой банковской карты. он точно помнит, что код содержал цифры 3 и 7. ещё две цифры в пин-коде могут быть любыми .где стояли цифры он точно...
Ksenua69
29.07.2021 21:12
Составить алгоритм покраски забора....
Васяян
06.03.2020 15:25
Написать программу по информатике! дана непустая последовательность целых чисел, оканчивающаяся отрицательным числом. верно ли, что все элементы последовательности равны между...
viva32
06.03.2020 15:25
Кому не трудно перевести с паскаля на си uses crt; var k: byte; begin clrscr; repeat write( введите возраст от 1 до 99 k= ); readln(k); until k in [1..99]; case k of 11..14: write(...
erenina88
06.03.2020 15:25
Уровень b. m. две одинаковые цифры рядом напишите программу, которая определяет, верно ли, что введённое число содержит две одинаковых цифры, стоящие рядом (как, например, 221)....
7777kby777777777778
06.05.2022 15:11
Де не використовують інформаційні технології а) виготовлення фотоб) вирощування овочівв) розробка дизайну приміщенняг) вживання їжі...
sofalezina975
02.09.2020 03:13
Нужно написать программу которая проверяет состоит ли трёхзначное число из одинаковых цифр ( например 555). 7 класс. информатика....
qwerty2021
29.05.2021 06:56
Модель – это: а) изображение объекта, процесса или явления на бумаге; b) уменьшенное представление о реальном объекте, процессе или явлений; c) представление о реальном процессе...
данич36
09.10.2022 14:31
1. что будет результатом работы программы? использовать чертёжник алг узор нач поднять перо сместиться в точку (1,1) опустить перо сместиться в точку (5,4) сместиться в точку (2,4)...
snagaytsev1
02.04.2023 12:20
«що лежить в основі роботи комп’ютера? »...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.