Даны 3 вещественных числа. вывести на экран те из них, которые принадлежат интервалу (1,6 ; 3,8). если ни одно число не подходит, ты вывести на экран сообщение: "ни одно число не принадлежит интервалу".
УКАЗ найдено := ОТКЛ; ОТ сч := 0 ДО РАЗМЕР(числа) - 1 ВЫП ЕСЛИ числа[сч] > 1.6 И числа[сч] < 3.8 ТО Вывод.ЧВещ("%g ", числа[сч], 0, 0, 0); ЕСЛИ НЕ найдено ТО найдено := ВКЛ КОН КОН КОН; ЕСЛИ НЕ найдено ТО Вывод.Цепь("Ни одно число не принадлежит интервалу.") КОН
числа: РЯД 3 ИЗ ВЕЩ;
сч: ЦЕЛ;
найдено: КЛЮЧ;
УКАЗ
найдено := ОТКЛ;
ОТ сч := 0 ДО РАЗМЕР(числа) - 1 ВЫП
ЕСЛИ числа[сч] > 1.6 И числа[сч] < 3.8 ТО
Вывод.ЧВещ("%g ", числа[сч], 0, 0, 0);
ЕСЛИ НЕ найдено ТО найдено := ВКЛ КОН
КОН
КОН;
ЕСЛИ НЕ найдено ТО
Вывод.Цепь("Ни одно число не принадлежит интервалу.")
КОН