Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Саша1111111211111
18.05.2021 23:09 •
Информатика
Дано число (a),если оно однозначное,то умножить его на 3,если трехзначное разделить на 3
Показать ответ
Ответ:
lehfrb
05.10.2020 08:02
Var
a: integer;
b: double;
begin
readln(a);
b := a;
if (a mod 10 = a) then
b := a * 3;
if (a div 100 <> 0) and (a div 1000 = 0) then
b := a / 3;
writeln(b);
end.
0,0
(0 оценок)
Ответ:
персик08
05.10.2020 08:02
//прога на Pascal`e
var
a: integer;
begin
write ('Введите A: ');
readln (a);
if (a div 10) = 0 then write (a*3)
else if (a div 100) <>0 then write (a/3)
else write ('Это не трехзначное и не однозначное число');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
senchaignatov
23.03.2020 15:42
Отметь верно ли высказывание: при работе с файлами не следует давать файлу имя, которое не поясняет его содержание верно не верно при работе с файлами следует сохранять файл в...
Цнрер
23.03.2020 15:42
Перед тобой имя файла с расширением. укажи, какой файл перед тобой: .doc — архиватортекстовый документзвуковой файлграфический документ.html —...
arsen992015
02.01.2023 13:18
При перекодировании из 16 битного текста в 8 битную кодировку сообщение уменьшается на 1280 бит . какого количество символов в сообщении?...
pomogiiiimne
30.01.2022 05:56
Дан целочисленный массив из 30 элементов. элементы могут принимать значения от -1000 до 1000. допишите на алгоритмическом языке программу, которая находит и выводит максимальный...
SaneckTupit
20.10.2021 14:12
Перевести целые числа из десятичной системы счисления в троичную: 523,65,7000,2307,325...
aprishkom
20.02.2023 05:32
Найдите основание х системы счисления если 2002x=130(в 10)...
alikjd8
16.03.2021 20:47
Дайте описание систем автомобиль урок магнитофон как черных ящиков...
hellobro55555555555
27.08.2021 20:52
Надо в кумире закрасить все клетки поля ,но у меня не получается , ....
edsrghhythg
01.02.2022 17:23
Скорость передачи данных скоростного adsl соединения равна 2048000 бит/c, а скорость передачи данных через 3g-модем равна 256000 бит/с. определите на сколько секунд дольше будет...
zhanaeva140705
13.04.2022 00:22
Нужна , ! 1.есть ли ошибки в заголовках? исправьте их: а)programm end b)programm zadabie 3 c)programma пример 2 2.определите,почему программа отказывается выполнять операцию: a)x=3mob...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a: integer;
b: double;
begin
readln(a);
b := a;
if (a mod 10 = a) then
b := a * 3;
if (a div 100 <> 0) and (a div 1000 = 0) then
b := a / 3;
writeln(b);
end.
var
a: integer;
begin
write ('Введите A: ');
readln (a);
if (a div 10) = 0 then write (a*3)
else if (a div 100) <>0 then write (a/3)
else write ('Это не трехзначное и не однозначное число');
end.