Ответ:
Объяснение:
var x:real;
begin
write('x=');
readln(x);
if (x>1)and(x<10) then write('принадлежит')
else write('не принадлежит');
readln
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Ответ:
Объяснение:
var x:real;
begin
write('x=');
readln(x);
if (x>1)and(x<10) then write('принадлежит')
else write('не принадлежит');
readln
end.