Pandacrash
Мудрец
(13225)
6 лет назад
1)
var x,x1,x2,N:real;
begin
write('x1 x2 N: ');readln(x1,x2,N);
x:= (x2-x1)/(1+N);
writeln(x:0:2);
end.
2)
var R,x1,x2:real;k:integer;
begin
write('x1,x2,R: ');readln(x1,x2,R);
k:=1;
If (x1>-R) and (x1-R) and (x2<R) then inc(k);
if x1=x2 then dec(k);
if k<>1 then writeln('Прямые делят круг на ',k,' части')
else writeln('Прямые не делят круг на части!');
end.
Дарья КарлоУченик (111)
6 лет назад
If(x1>-R) and (x1-R) and (x2<R) then inc(k); в этой строке ошибка у меня) нельзя преобразорать тип real к boolean