Question

Помогите с информатикой. Нужно написать программу в Pascal.

Answer 1

Ответ:

pascal

Объяснение:

1)

var a, b, c: real;

begin

 Write('Введите значение a = '); ReadLn(a);

 Write('Введите значение b = '); ReadLn(b);

 if a = b then c := sqrt(a + b) else c := sqr(a - b);

 WriteLn('с = ', c:1:3);

end.

2)

var v, z: real;

begin

 repeat

   Write('Введите значение v = '); ReadLn(v);

 until (v <> 0) and (sqr(v) - 31 >= 0);

 z := 19 / v + sqrt(sqr(v) - 31) / 8;

 WriteLn('z = ', z:1:3);

end.