Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
ник5046
04.02.2022 00:55 •
Информатика
1)определить, является ли заданное целое число а двузначным числом. 2)найти значение выражения a3+b3\bc. 3)определить есть ли среди цифр.задано трёхзначное число с одинаковыми числам на паскале
Показать ответ
Ответ:
elinochka0707
07.10.2020 20:13
//PascalABC.NET
//Версия 3.3, сборка 1611 (06.01.2018)
1)
begin
var a:=ReadInteger('Введите число->');
Println('Число',a, (a div 10>0) and (a div 10<10)?'двухзначное.':'не двухзначное.');
end.
Пример:
Введите число-> 42
Число 42 двухзначное.
2)
begin
var (a,b,c):=ReadInteger3('Введите a, b, c -> ');
Println('a*3+b*3/bc=', (a*3+b*3)/(b*c));
end.
Пример:
Введите a, b, c -> 1 2 3
a*3+b*3/bc= 1.5
0,0
(0 оценок)
Ответ:
пропрл
07.10.2020 20:13
//Листинг программы и скриншот ее работы в приложениях
0,0
(0 оценок)
Популярные вопросы: Информатика
милана05051
03.02.2023 05:28
Рассмотрите изображение Определите вид графики...
иоапгрдгоп
10.08.2021 02:45
Укажите за какие действия отвечают пиктограммы, обозначенные на рисунке....
madina20042004
18.12.2020 21:04
Действия производимые с информацией для достижения поставленной цели...
Mmamagadzhieva
27.02.2020 04:11
Ануар решил пополнить счёт сотовой связи. ануару составить правильный алгоритм...
irina030270
26.07.2022 03:35
Руслан хотел поделиться впечатлениями о летнем путешествии с друзьями,но забыл,где именно он сохранил фотографию байкал.jpeg .ниже представлена файловая структура диска e: e:...
alkofner
26.07.2022 03:35
Укажите устройства ввода информации: микрофон, документ-камера,сканер, наушники,мышь, монитор,видеопроектор,колонки...
nikitka199821
26.07.2022 03:35
Ненаправленная линия(без стрелки) связывающая вершины графа...
ffhddjkk
26.07.2022 03:35
Цикл while написать программу которая для любого числа n выводит последовательно на экран все его цифры начиная с конца(разряда единиц) (! 20 ! )...
benleo2001
26.07.2022 03:35
Решил пополнить счёт сотовой связи. ануару составить правильный алгоритм. № команда 1 a) проверьте и подтвердите номер телефона 2 b) введите номер телефона 3 c) выберите оператора...
XWaeRr
13.04.2022 14:01
4) выберите шрифт с засечками a) arial; b) monotype corsiva; c) dotum; d) times new roman...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
//Версия 3.3, сборка 1611 (06.01.2018)
1)
begin
var a:=ReadInteger('Введите число->');
Println('Число',a, (a div 10>0) and (a div 10<10)?'двухзначное.':'не двухзначное.');
end.
Пример:
Введите число-> 42
Число 42 двухзначное.
2)
begin
var (a,b,c):=ReadInteger3('Введите a, b, c -> ');
Println('a*3+b*3/bc=', (a*3+b*3)/(b*c));
end.
Пример:
Введите a, b, c -> 1 2 3
a*3+b*3/bc= 1.5