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