Войти
Регистрация
Спроси 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. Запишите на языке Паскаль программу, которая по произвольным значениям катеров прямоугольного треугольника вычисляет гипотезу. (Линейный...
Ангелинка02052003
10.06.2021 06:36
Вбарабане для розыгрыша лотереи находится 62 шара. сколько информации содержит сообщение о первом выпавшем номере (например, выпал номер 15)?...
sonatap01f6p
10.07.2020 12:33
С ИНФОРМАТИКОЙ!! 9 класс...
янина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...
лёхыч3
20.11.2022 02:58
Как читают незрячие люди? какие органы чувств при этом задействованы?...
nastyamerteshoНастя
20.11.2022 02:58
Перечислите основные свойства твердых тел...
Tinochka173
20.11.2022 02:58
Синоним к слову пусто , в форме существительного...
оргеотепок
20.11.2022 02:58
Пять цыплят склевали по 2 червяка, а шестой -3 червяка . сколько червяков склевали цыплята?...
Dashuleta200
20.11.2022 02:58
Установите соответствие и переведите полученный текст 4. match different kinds of tv programmes with their descriptions. 1) documentary 2) the news 3) chat show 4)...
Churikowao2004
20.11.2022 02:58
Народы, населяющие страну юар. их основные занятия....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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