Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
korolevaleksan
18.02.2020 17:37 •
Информатика
1)определить, является ли заданное целое число а двузначным числом. 2)найти значение выражения a3+b3\bc. 3)определить есть ли среди цифр.задано трёхзначное число с одинаковыми числам на паскале
Показать ответ
Ответ:
fff567
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 оценок)
Ответ:
Voight
07.10.2020 20:13
//Листинг программы и скриншот ее работы в приложениях
0,0
(0 оценок)
Популярные вопросы: Информатика
Ksenia5555509877
25.09.2022 03:21
очень Урок информатики. 1. Запишите на языке Паскаль программу, которая по произвольным значениям катеров прямоугольного треугольника вычисляет гипотезу. (Линейный...
themartynov23
20.01.2022 20:12
Задание 2: Опишите приложение, которое родителям контролировать время, проводимое их детьми перед экранами смартфонов и планшетов.Критерий оценивания: - Рисует логотип...
Damir6565
24.05.2021 01:44
111001+11011 101001*101 11101*11 111*10...
Ангелинка02052003
10.06.2021 06:36
Вбарабане для розыгрыша лотереи находится 62 шара. сколько информации содержит сообщение о первом выпавшем номере (например, выпал номер 15)?...
daurmukhtar99
03.04.2023 03:11
Сколько Кбайт информации содержит сообщение объемом 220 бит? ...
янина1511
20.11.2022 02:58
Вставить some, any, no. 1. i bread. why haven t you bought nick? l time to do it. 2. soup, helen? no, thank you. soup at dinner. i don t more. 3. were mistakes in...
Samoilov2903
20.11.2022 02:58
Какие цифры надо записать вместо**? 12**5-*99*=8009,**66*+4**7=14670...
KoRiiZa
20.11.2022 02:58
Информация о растений или животных побережья черного моря...
лёхыч3
20.11.2022 02:58
Как читают незрячие люди? какие органы чувств при этом задействованы?...
valovaliza2018
20.11.2022 02:58
Вбуфете было в 4 раза больше чем на столе когда на стол поставили 12 новых тарелок в буфете и на столе тарелок стало поровну сколько тарелок было в буфете?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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