Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
MishaBig
24.03.2021 19:15 •
Информатика
Ввести три числа. вывести на экран те из них, которые принадлежат интервалу (2,5-5,2).
Показать ответ
Ответ:
bbcc2
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 оценок)
Популярные вопросы: Информатика
Damir2342
08.02.2020 01:29
ЗАДАНИЯ ПО СУММАТИВНОМУ ОЦЕНИВАНИЮ ЗА 3 ЧЕТВЕРТЬ Суммативное оценивание за раздел 2 «Робототехника», за раздел 4 «Соревнования роботов».Цель обучения : 5.3.4.1-формулировать...
Galerina
26.01.2023 16:03
Задачаt=2минразрядность 8 битЧастота дескрицизац. 24КГцмоноИнф.Объем-?...
ObraztsovaOlga
26.01.2023 16:03
Что будет выведено в результате выполнения функции: print(13//5, 13%5) Варианты ответа 2 3 2,3 2,6 3 1 2, 3...
icefice0
28.11.2020 00:04
(работаем с прогой PYTHON Переведите и запишите примеры в тетрадь. float int Составьте несколько линейных алгоритмов....
natka012
01.07.2021 03:07
Обмен письмами в компьютерных сетях называется...
Audika
16.11.2020 20:44
Склавиатуры вводится строка, в которой слова разделены пробелом. заменить все пробелы на запятые. вывести получившуюся строку на экран. (составить программу на языке паскаль)...
умник1594
16.11.2020 20:44
Сформулировать и записать определения понятиям: земледелец , животновод ....
zmey7755
16.11.2020 20:44
Написать дату рождения(21.11.1999) в 2 системе счисления...
korolevalena20
29.12.2021 07:09
На вход программе подается натуральное число n = 109. проверьте, является ли оно простым. выведите yes или no в зависимости от ответа на вопрос . максимальное время работы...
5Ник4
04.10.2022 06:10
Составьте программу, позволяющую проверить правописание жи и ши в строке s. выведите на экран количество допущенных ошибок и исправленную строку....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.