Напишите программу на языке Паскаль:Выяснить принадлежит ли точкаX отрезку от 1 до 10?
Буду очень благодарна)
Ответы
Ответ дал:
0
var a: integer;
begin
Readln(a);
if (a<=10) and (a>=1) then
Writeln('принадлежит')
else Writeln('не принадлежит')
end.
begin
Readln(a);
if (a<=10) and (a>=1) then
Writeln('принадлежит')
else Writeln('не принадлежит')
end.
Похожие вопросы
2 года назад
6 лет назад
6 лет назад
9 лет назад
9 лет назад