Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
татьяна1039
30.05.2022 19:24 •
Информатика
1)определить, является ли заданное целое число а двузначным числом. 2)найти значение выражения a3+b3\bc. 3)определить есть ли среди цифр.задано трёхзначное число с одинаковыми числам на паскале
Ответ:
Белялова
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 оценок)
Ответ:
casha0032
07.10.2020 20:13
//Листинг программы и скриншот ее работы в приложениях
0,0
(0 оценок)
Популярные вопросы: Информатика
nevzorovivan200
15.10.2020 16:57
Переведите число 699 в восьмеричную и шестнадцатеричную систему счисления....
макс190
27.03.2021 08:55
Найти разность между средним арифметическим и минимальным элементами заданной прямоугольной матрицы, сформированной случайным образом...
ксззххххх
27.03.2021 08:55
1. найти разность между максимальным и минимальным элементами числовой последовательности. написать программу на языке кумир !...
OtterPop
27.03.2021 08:55
Введите с клавиатуры три числа x,y,z. если числа равны, то увеличте их в три раза и выведите результат на экран.если равны только два последние числа то замените все числа на...
55d
23.04.2022 02:22
Объясни почему написание подчеркнутых букв нужно проверять запиши проверочные слова выдели корень еж наряд карандаш груз сугроб рукав березка лошадка шубка сказки слезки подружка...
DANIKom
23.04.2022 02:22
Характеристика героя федя из рассказа бежин луг....
Женька2597
23.04.2022 02:22
Выберите нужное местоимение: 1. i invited my friend to. . place. a) me b) his c) my d) mine. 2. it s easy, you can do a) you b) your c) yours d) yourself...
РенесмиАгзамова
23.04.2022 02:22
Старинным золотом и желчью старинным золотом и желчью напитал вечерний свет холмы. зардели красны, буры клоки косматых трав, как пряди рыжей шкуры. в огне кустарники и воды...
chovganirina
23.04.2022 02:22
1ч38с=..с 1сут.18ч=..ч 1ч27мин=..мин 1ч35мин= 2сут.12ч= 1мин23с=...
fgoolis58
23.04.2022 02:22
Как будет по в множествином чесле конфета...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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