Question

допоможіть будь ласка я не розумію в інформатиці

Answer 1

program zVet_2;

Var x:real;

BEGIN

Readln(x);

if x>0

then writeln('Пол (+)')

else writeln('Отр (-)');

END.

Ответ: Отпределиение отрецательное или положительное число

program zVet_3;

Var a,b,c,d:integer;

BEGIN

Readln(a, b, c);

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

if D>0

then writeln('1 корень x1=', (-b+sqrt(D))/2*a:0:2, '; 2 корень x2 = ', (-b-sqrt(D))/2*a:0:2);

      else

           if D=0

               then writeln(-b/2*a)

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

END.

Ответ: Нахождение квадратного корня

program zVet_4;

Var a,b,c,d:integer;

BEGIN

Readln(a, b, c, d);

if A>D

 then if A>C

     then D := A

    else D := C

else if B > C

     then D := B

    else D := C;

writeln('Наибольшое число:', D);

END.

Ответ: найти наибольшое число среди 3

program zVet_5;

Var c, m:integer;

BEGIN

Readln(c, m);

if c > m then writeln('Саша старше Маши')

else if c < m then writeln('Маша старше Саши')

else writeln('Саша и Маша ровесники');

END.

program zVet_5;

Var v, r:integer;

BEGIN

Readln(r, v);

if (r > 168) and (r < 178) and (v <= r - 115) then writeln('Будет')

else writeln('Не будет');

END.