Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Hadeyac23
16.10.2021 18:12 •
Информатика
Ввести три числа. вывести на экран те из них, которые принадлежат интервалу (2,5-5,2).
Показать ответ
Ответ:
DashaZhur1752
24.07.2020 14:57
Написано на Pascal
var a:real;i,k:integer;
begin
writeln('Введите 3 числа');
for i:=1 to 3 do
begin
read(a);
if (a>=2.5) and (a<=5.2) then begin
writeln('Число ',a,' входит в интервал');
k:=k+1;
end;
end;
if k=0 then writeln('Таких чисел нет');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
GoshaLLL
19.01.2021 00:09
Как пойвился значек от майнкрософта...
nifirazifira
15.02.2021 17:44
1 На месте преступления были обнаружены 4 обрывка бумаги. Следствие установило, что на них записаны фрагменты одного IP-адреса. Восстановите IP-адрес. В ответе укажите последовательность...
ruslanamaslanuc
08.06.2020 01:14
Опишите основные типы данных, содержащихся в ячейках ЭТ....
AMINA2007133456
17.04.2020 20:44
Всех богов , напишите пожайлуста развернутое решение Сообщение, записанное буквами 10-символьного алфавита, содержит 100 символов. Какое количество информации оно несёт? 2....
віка812
15.02.2023 12:38
Выберите пары параллельных прямых. Укажите правильный вариант ответа: 1)y=3x+5 и y=−3x−4 2)y=4x−3 и y=3x−4 3)y=3x+5 и y=3x−4 4)y=3x+5 и y=3+5x...
krasnikovanastoyhpaj
26.11.2021 15:15
Итоги последствия открытие Японии...
Rabika2018
26.11.2021 15:15
Найди значение выражения: 11⋅8√⋅4⋅6√⋅48√. за это задание...
exii
14.05.2022 03:05
№2. Точки А (-4;1), В (-2;4), С (0;1) являются вершинами треугольника АВС. Докажите, что треугольник АВС равнобедренный. Решение подробное со всеми пояснениями. Чертежи сделайте,...
Metalgitarist23
14.05.2022 03:05
Қажетті сөзді таңдап жаз учебник горизонт 2 часть 10 тапсырма 103 бет...
maxfum
08.04.2023 09:12
Дайте ответы на тест, очень Буду благодарен. 1. Игра в баскетбол начинается с центра поля а) по жребию; б) по решению судьи; в) после розыгрыша мяча. 2. Одновременно на площадке...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a:real;i,k:integer;
begin
writeln('Введите 3 числа');
for i:=1 to 3 do
begin
read(a);
if (a>=2.5) and (a<=5.2) then begin
writeln('Число ',a,' входит в интервал');
k:=k+1;
end;
end;
if k=0 then writeln('Таких чисел нет');
end.