Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
Грошового, вибач якшо не правильно
1 кбайт=1024 байта
1 байт=8 бит
81920/8=10240 байт
10240/1024=10 кбайт
пусть [a,b] - область и a< =b
var
a,b,x: real;
begin
readln(a,b,x);
if (a< =x) and (x< =b) then
writeln('принадлежит')
else
writeln('не принадлежит');
end.
Популярные вопросы