Решите что 1. написать программу, проверяющую, принадлежит ли число х, введенное с клавиатуры, интервалу [a,b]. 3. составить программу вычисления объема, площади поверхности и суммы ребер прямоугольного параллелепипеда. 5. даны три числа. написать программу, подсчитывающую количество чисел, равных 0.
первая)
Program Z;
uses crt;
var a,b,x:integer;
begin
Clrscr;
write ('A:');
readln (A);
write ('B:');
readln (b);
write ('Chislo:');
readln (x);
if (x>=a) and (x<=b) then write ('Da')
else write ('Net');
readln
end.