Заполни пропуски в программе на языке Паскаль.
Определить, принадлежит ли точка g отрезку [k;v].
var
k,v,g:real;
begin
write(' ? =');
readln( ? );
write('v=');
readln(v);
write('g=');
readln( ? );
if (g>=k) and (g<= ? ) then writeln ('yes') else writeln('no');
readln;
end.
Определить, принадлежит ли точка g отрезку [k;v].
var
k,v,g:real;
begin
write(' ? =');
readln( ? );
write('v=');
readln(v);
write('g=');
readln( ? );
if (g>=k) and (g<= ? ) then writeln ('yes') else writeln('no');
readln;
end.
More Questions From This User See All
Answers & Comments
Ответ:
program adsas;
var
k,v,g:real;
begin
write(' k =');
readln( k );
write('v=');
readln(v);
write('g=');
readln( g );
if (g>=k) and (g<= v ) then writeln ('yes') else writeln('no');
readln;
end.