Задание1: написать пояснения к каждой строчке (что она делает)

Программа нахождения корней квадратного уравнения

var a,b,c: real;

x1,x2,D: real;

begin

readln(a,b,c);

D := b*b - 4*a*c;

if D<0 then

writeln('Корней нет')

else if D=0 then begin

x1 := -b/2/a;

writeln('x1=x2=',x1);

end

else begin

x1 := (-b-sqrt(D))/2/a;

x2 := (-b+sqrt(D))/2/a;

writeln('x1=',x1,' x2=',x2);

end;

end.

Задание2: написать пояснения к каждой строчке (что она делает)

var n,i,sum:integer;

begin

readln (n,i);

sum := 0;

while (i > 0) do begin

sum := sum + (n mod 10);

n := n div 10;

dec(i);

end;

writeln('Сумма = ', sum);

end.

Blackbberyy    1   18.04.2020 22:33    2