Var a,b,x: real; begin write ( vvedite koaficient a,b» ); readln (a,b); if a 0 then begin x: = -b/a; - id453251420220510 от Dima228590 10.05.2022 18:15

Question

Информатика: Var a,b,x: real; begin write ( vvedite koaficient a,b» ); readln (a,b); if a 0 then begin x: = -b/a; writeln ( koren yravnenia x= , x: 9: 3); end else if b 0 then writeln ( korney net ); else writeln ( x- luboe chislo ); end. как можно переделать программу, выдает ошибку?

Dima228590 · Accepted Answer

давай будем делать как отладчик)конец первого круга: (1 n) (не запускается если это не правда)i = i * 2 = 2; s = s + i = 2;конец Второго круга : (2 n) (не запускается если это не правда)i = i * 2 = 4; s = s + i = 6 (2 + 4);конец Третьего круга (4 n) (не запускается если это не правда)i = i * 2 = 8; s = s + i = 14 (6 + 8)конец Четвертого круга (8 n) (не запускается если это не правда)i = i * 2 = 16; s = s + i = 30 (16 + 14)Внимание: Здесь S 14 (и будет только увеличиваться)= 4 n = 8 = Максимальное...

MOGZ ответил