Question

Заполни пропуски в программе на языке Паскаль. Определить, принадлежит ли точка x отрезку [k;m]. var k,m,x:real; begin write('='); readln(); write('m'=); readln(m); write('x='); readln(); if (x>=k) and (x<=) then writeln ('yes') else writeln('no'); readln; end. СРОЧНО! ПЛИЗ! КТО В ЭТОМ ШАРИТ!?

Answer 1

Var
k,m,x:real;
begin
write('k=');
readln(k);
write('m=');
readln(m);
write('x=');
readln(x);
if (x>=k) and (x<=m) then writeln ('yes') else writeln('no');
readln;
end.

Пример:
k=2
m=5
x=4
yes