Заполни пропуски в программе на языке Паскаль.

Определить, принадлежит ли точка 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.
СРОЧНО! ПЛИЗ! КТО В ЭТОМ ШАРИТ!?

Нужно считать значения k, m и x, а потом проверить условие: точка \( x \) принадлежит отрезку \([k;m]\), если \( x \ge k \) и \( x \le m \).

Исправленная программа:

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, x и m.

0 0 Пожаловаться