Var x, a, b, c, d: integer;
begin
readln(x, a, b, c, d);
if ((x > a) and (x < b)) then
writeln('[', a, '; ', b, ']');
if ((x > c) and (x < d)) then
writeln('[', c, '; ', d, ']');
<span>end.
Вот так, интервалы - они и в Африке интервалы)</span>
Рассмотрим пример решения задачи:
<span>Однажды Винни-Пух захотел полакомиться медом и пошел к пчелам в гости. По дороге нарвал букет цветов, чтобы подарить труженицам пчелкам. Пчелки очень обрадовались, увидев мишку с букетом цветов, и сказали: «У нас есть большая бочка с медом. Мы дадим тебе меда, если ты сможешь с помощью двух сосудов вместимостью 3 л и 5 л налить себе 4 л!» Винни-Пух долго думал, но все-таки смог решить задачку. Как он это сделал?
</span>
<span><span><u>Решение:</u>
<span>Как в результате можно получить 4 л? Нужно из 5-литрового сосуда отлить 1 л. А как это сделать? Нужно в 3-литровом сосуде иметь ровно 2 л. Как их получить? – Из 5-литрового сосуда отлить 3 л.
Решение лучше и удобнее оформить в виде таблицы:</span></span>
<span><span>Ходы123456</span><span>5 л522-54</span><span>3 л-3-223</span></span>
</span>
<span>Наполняем из бочки 5-литровый сосуд медом (1 шаг). Из 5-литрового сосуда отливаем 3 л в 3-литровый сосуд (2 шаг). Теперь в 5-литровом сосуде осталось 2 литра меда. Выливаем из 3-литрового сосуда мед назад в бочку (3 шаг). Теперь из 5-литрового сосуда выливаем те 2 литра меда в 3-литровый сосуд (4 шаг). Наполняем из бочки 5-литровый сосуд медом (5 шаг). И из 5-литрового сосуда дополняем медом 3-литровый сосуд. Получаем 4 литра меда в 5-литровом сосуде (6 шаг). Задача решена.
Поиск решения можно было начать с такого действия: к трем литрам добавить 1 литр.</span> <span>Но тогда решение будет выглядеть следующим образом:
<span><span>Ходы12345678</span><span>5 л-335-114</span><span>3 л3-311-3<span>-( по этому примеру реши)
<span>
</span></span></span></span></span>
ИСХОДНЫЙ
Яша Арбузов
Катя Арбузова
Коля Белкин
Лена Волкова
Дима Иволгин
Серёжа Тополев
Валя Стрелина
Роберт Щукин
Марина Яблочкова
так как хочет Марина)
Марина Яблочкова
Роберт Щукин
Сережа Тополев
Валя Стрелкина
Дима Иволгин
Лена Волкова
Коля Белкин
Катя Арбузова
<span>Яша Арбузов </span>
Картинка должна быть в папке с программой и быть в формате BMP
uses
graphabc;
var
n: string;
b: Picture;
s:integer;
begin
writeln('введите расстояние до зеркала');
readln(s);
write('Введите имя файла рисунка: ');
readln(n);
window.Clear;
b := Picture.Create(n);
b.Load(n);
b.Draw(50, 50);
b.FlipHorizontal;
b.Draw(50+2*s,50);
end.
Код рабочий, проверял на PascalABC
uses GraphABC;
var m: integer; arr: array [1..10] of integer;
begin
for var i := 1 to 10 do
begin
arr[i] := Random(120,200);
end;
m := Max(arr[1], Max(arr[2], Max(arr[3], Max(arr[4], Max(arr[5], Max(arr[6], Max(arr[7], Max(arr[8], Max(arr[9], arr[10])))))))));
println(m);
end.