Скажитее, сколько весит текстовый файл до сжатия и после. тоже самое с графиком.
117
209
Ответы на вопрос:
Var a,b,c: real; begin readln(a); readln(b); readln(c); if (b*b-4*a*c)> =0 then writeln('deistvitelnie korni est! ') else writeln('deistvitelnih korney net'); if (b*b-(4*a*c))> 0 then begin writeln('2 kornya'); writeln('x1= '-sqrt(b*b-4*a*c))/(2*a)); writeln('x2= '+sqrt(b*b-4*a*c))/(2*a)) end; if (b*b-(4*a*c))=0 then begin writeln('1 koren'); writeln('x= '+sqrt(b*b-4*a*c))/(2*a)) end; end.
Популярно: Информатика
-
milana2010198615.03.2020 08:55
-
MasterHacker13.07.2021 20:00
-
oliaborisova12301.04.2021 07:28
-
Дарья0203105.12.2021 07:09
-
Marina457817.06.2020 10:46
-
CERN28.08.2021 05:53
-
sergijkorovonko30.04.2020 17:04
-
elnur4ik200216.04.2023 09:59
-
1saridua108.09.2020 06:58
-
Pomawkal13.10.2021 23:44