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.
103
109
Ответы на вопрос:
3 Мегабайта
Объяснение:
1) 1024 * 1024 = 1 048 576 точек в изображении
2) 1 048 576 * 3 байта = 3 145 728 байт - размер файла
3 145 728 байт / 1024 = 3072 Килобайт / 1024 = 3 Мегабайт
Популярно: Информатика
-
niggaeasyreal03.10.2020 07:48
-
timursharipov200616.06.2021 04:19
-
anara0105197929.03.2023 07:01
-
Shimkent02.03.2022 08:52
-
petrosiannikita13.11.2022 23:42
-
Merlin13101.10.2021 00:14
-
Sanek1222108.05.2021 16:44
-
Viky201607.01.2023 19:31
-
taniaselikova05.06.2023 11:12
-
даяна9213.06.2021 11:31