Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
TemaKorol190803ru
04.05.2020 10:19 •
Информатика
1)определить, является ли заданное целое число а двузначным числом. 2)найти значение выражения a3+b3\bc. 3)определить есть ли среди цифр.задано трёхзначное число с одинаковыми числам на паскале
Ответ:
Juicemonk3000
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 оценок)
Ответ:
pineapplenastya1
07.10.2020 20:13
//Листинг программы и скриншот ее работы в приложениях
0,0
(0 оценок)
Популярные вопросы: Информатика
Silvertrue
20.08.2022 06:15
Маленький круглый серый металлический предмет...
anastaiyaersho
28.04.2022 12:33
Нужно решение pascal. дан массив.найти сумму кубов всех элементов массива....
xomis1
28.04.2022 12:33
Всистеме счисления с некоторым основанием число 57 записывается в виде 321 укажите основание...
milka1951
23.05.2021 10:03
Запросить с консоли целое число и проверить значение бита с указанным номером в этом числе. результат такой проверки вывести на консоль. для удобства разрешается запрашивать указанное...
Гульжа1234
11.03.2020 22:55
3. решить : 1) задайте в виде оператора присваивания следующие действия: a) переменной вещественного типа х присвоить значение, равное полусумме значений а и b; b) удвоить значение...
sasuke97
11.03.2020 22:55
Как определяется информационный объем текста при использовании алфавитного подхода...
Cracolla1
11.03.2020 22:55
Перечислите основные операции, определенные для данных целочисленного типа...
ANgeLOL1112
11.03.2020 22:55
Вообщем так . в паскале по информатике я нуб. хоть и плюсы хорошо. решить одну , ну или хотя бы примерно объяснить. билет с 4-значным номером является счастливым, если сумма первых...
SupercellTV
21.04.2022 23:46
Перевести и решить : по десяти и двух- 56(8)+100011(2)-49(10)...
Fedor122790
21.04.2022 23:46
Напиши алгоритм как разшифровать слово б...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
//Версия 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