Program Equation;
var a,b,c,x1,x2,d:real;
begin
write ('Введіть коефіцієнти:');
readln(a,b,c);
d:=b*b-4*a*c;
if d<0 then writeln ('Коренів немає') else
begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
if x1<0 and x2<0 then writeln ('Корені відємні')else
if x1>0 and x2>0 then writeln ('Корені додатні')else
if x1>0 and x2<0 then writeln ('Корені мають різні знаки')else
if x1<0 and x2>0 then writeln ('Корені мають різні знаки')else
writeln ('Корені є: ',x1:6:2, x2:6:2);
end;
end.
какая тут ошибка и как ее исправить? пишет, что нельзя преобразовать тип real к integer в рядах
if x1<0 and x2<0 then writeln ('Корені відємні')else
if x1>0 and x2>0 then writeln ('Корені додатні')else
if x1>0 and x2<0 then writeln ('Корені мають різні знаки')else
if x1<0 and x2>0 then writeln ('Корені мають різні знаки')else.
еще 1 мин пожарила, сняла. 2 мин.
3 лепешки сложнее, но можно уложиться в 3 мин.
Положила 2 лепешки на одну сторону, пожарила 1 мин.
Одну лепешку сняла, вместо нее положила 3-ью, а 2-ую перевернула.
Пожарила 1 мин.
2-ую лепешку сняла готовую, положила 1-ую, а 3-ью перевернула.
Пожарила 1 мин.
Всего 3 мин.
4 и 5 лепешек точно также можно пожарить за 4 и 5 мин.
Одну пожарила с одной стороны и заменила на 3-ью, 2-ую перевернула.
Потом также 4 и 5.