Задача в Паскале
Проверьте, принадлежит ли интервалу (а,b) число с, где а,b,с- любые числа?
Program zadacha;
var a,b,c: integer;
begin
writeln (Введите интервал);
read (a,b);
writeln (Введите число);
readln (c);
if (c>=a) and (c<=b) then writeln (Число принадлежит интервалу)
else writeln (Число не принадлежит интервалу);
end.
Оцени ответ
