Даны три целых числа: A, B, C. Проверить истинность высказывания: «Число A находится между числами B и C».
program B5;
var
a, b, c: integer;
b1, b2: boolean;
begin
write('Введите число A, B, C: ');
read(a, b, c);
b1 := (a > b) and (a < C);
b2 := (a > c) and (a < b);
writeln('Число a находится между числами b и C - ', b1 or b2);
end.
Пользователь передает целое положительное число N, выведете на экран последовательность от 1 до N, так чтобы ширина "ёлочки" росла волнами. Например, для N=49 получим:
Пользователь передает целые положительные число N и M, выведете на экран последовательность от 1 до N, так чтобы ширина "ёлочки" увеличивалась до M чисел, то уменьшалась до 1. Например, для M=3 и N=19 получим:
Модифицируйте предыдущий вывод "ёлочкой" так, чтобы в каждой нечетной строке выводились только четные числа, а в каждой четной только нечетные, например для N=17: