ПОМОГИТЕ ПОЖАЛУЙСТА
Написать программу, проверяющую , принадлежит ли число, введенное с клавиатуры, отрезку [0,10]
Написать программу, проверяющую , принадлежит ли число, введенное с клавиатуры, отрезку [0,10]
More Questions From This User See All
Answers & Comments
var
n: integer;
begin
write ('Введите число: ');
readln (n);
if (n>=0) and (n<=10) then
writeln(n, ' Принадлежит отрезку от 0 до 10')
else
writeln(n, ' Не принадлежит отрезку от 0 до 10');
end.
a : integer;
begin
readln (a);
if (a >= 0 ) and (a <= 10)
then
writeln ('Число принадлежит отрезку')
else
writeln ('Число не принадлежит отрезку');
readln ();
end.