Даны действительные числа a,b. вывести на экран сообщение "числа лежат в заданном промежутке", если они принадлежат интервалу (x0,x1] и "числа вне интервала" в противном случае (приделы интервала x0 и x1 вводятся с клавиатуры)
Var a,b,x0,x1:integer; begin writeln('Введите числа a и b соотвественно'); read(a,b); writeln('Введите координаты x0 и x1'); read(x0,x1); if (a>x0) and (a<=x1) and (b>x0) and (b<=x1) then writeln('Числа лежат в заданном интервале') else writeln('Числа не лежат в заданном интервале'); end.
- для раздачи единичного релиза исполнителя - в любом порядке: год издания, название релиза и название исполнителя, через любой разделитель: примеры правильных вариантов: "Артист - Год - Альбом", "Артист-Альбом - (Год)"; примеры неправильных вариантов: "Артист - Альбом", "ГодАльбом", "ГодАльбом(Артист)". - для релизов в составе дискографии (коллекции) - в любом порядке год и название релиза, через любой разделитель: примеры правильных вариантов: "Год - Альбом", "Альбом (Год)"; примеры неправильных вариантов: "ГодАльбом", "Альбом"; при этом релизы исполнителя должны находиться в папке, содержащей в названии имя исполнителя. 3.1.3 Название файла трека должно содержать номер трека по порядку на диске и название трека, через любой разделитель и только в этом порядке: примеры правильных вариантов: "01 - Название","01.Название""01 Название"; примеры неправильных вариантов: "Название - 01", "01Название", "Название";
В недавнем длина имени файла или папки была ограничена восемью символами с расширением не более трех символов. Это правило было известно как Конвенция 8.3. Иногда ваш компьютер обращается с длинными именами файлов не так, как с именами, соответствующими стандарту 8.3. В зависимости от операционной системы, если в названии файла встречаются пробелы, вы Должны заключить название в кавычки, чтобы оно читалось как единое имя. Если папка или файл имеют длинное имя, которое необходимо сократить до восьми знаков, название папки представляется шестью первыми буквами названия и номером, например, progra1 вместо Program Files. Примеры переименования папок, названия которых начинаются одинаково, приведены в 2.2.
begin
writeln('Введите числа a и b соотвественно');
read(a,b);
writeln('Введите координаты x0 и x1');
read(x0,x1);
if (a>x0) and (a<=x1) and (b>x0) and (b<=x1)
then writeln('Числа лежат в заданном интервале') else
writeln('Числа не лежат в заданном интервале');
end.