Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
tysa133
05.07.2022 12:29 •
Информатика
Даны три действительных числа. вывести те из них, которые принадлежат интервалу (1,3).
Показать ответ
Ответ:
Djilsi
23.07.2020 14:25
Program z2;
var a,b,c:real;
begin
writeln('Input a, b, c:');
readln(a,b,c);
writeln('Числа, удовлетворяющие условию:');
if((a>1) and (a<3)) then
writeln(a);
if((b>1) and (b<3)) then
writeln(b);
if((c>1) and (c<3)) then
writeln(c);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
ketmeow
09.01.2021 16:57
Как сделать это в скретч?...
кар92
17.01.2023 16:56
кто знает информатику. Надо написать алгоритм робота, который красит стены. Робот слева от стены. Закрасить клетку х. ...
tiatyx5
01.05.2022 20:50
Задача 5. Тах Нещодавно королева країни ужляндії придумала новий б відмивання грошей для свого королівського двору. Вона вирішила, що кожен житель, який бажає здійснити подорож...
саша8510
19.07.2022 18:26
Как создать график функции y=sin^2x в excel?...
Neimeyumozg
15.07.2021 05:46
Если одна буква в слове отображена красной буквой то Какого цвета будут последующие буквы?...
Danila251008
09.06.2021 05:54
Не аттестация решить 3,4 задачу...
Кэти305
30.07.2022 15:49
Олимпиадные требуют ввод-вывод данных с использованием внешних файлов как это сделать? информатика конспекты уроков 9-11 классы чернов а.а. с198 program pr; uses crt; var...
scrqppy2000
21.06.2022 01:42
Ввести с клавиатуры в одну строку фамилию имя и отчество, раздели их пробелами вывести фамилию и инициалы python...
Marat445372
04.05.2020 21:02
Известно, что b 4.оцените значение выражения 5-3b...
урсвт
04.05.2020 21:02
Высота конуса равна 12см, а его образующая равна 13см. найдите площадь полной поверхности конуса....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a,b,c:real;
begin
writeln('Input a, b, c:');
readln(a,b,c);
writeln('Числа, удовлетворяющие условию:');
if((a>1) and (a<3)) then
writeln(a);
if((b>1) and (b<3)) then
writeln(b);
if((c>1) and (c<3)) then
writeln(c);
end.