Question

Написать программу в паскаль и Нарисовать Блок - Схему
Даю 30б., пжлст

Answer 1

Ответ:

готово. PascalABC

Объяснение:

program tri_chisla;

var n1, n2, n3: real;

begin

 WriteLn('Ввод трех чисел и расположение их в убывающем порядке с заменой значений.');

 Write('Введите значения n1, n2 и n3 через пробел >>> ');

 ReadLn(n1, n2, n3);

 if n1 < n2 then Swap(n1, n2);

 if n2 < n3 then Swap(n2, n3);

 if n1 < n2 then Swap(n1, n2);

 WriteLn('n1=',n1,' n2=',n2,' n3=',n3);

end.

program func_L;

var

 l: real;

 x, y, z: integer;

begin

 repeat

   WriteLn('Введите значения x, y и z');

   Write('Условие: (x-y-z) должно быть больше 0 >>');

   ReadLn(x, y, z);

 until (x - y - z) > 0;

 l := x * y * z - ((abs(x)+abs(y)+abs(z))/(2 * sqrt(x - y - z)));

 WriteLn('L = ', l);

end.

program chislo_a;

var

  a: integer;

begin

 Write('Введите число a >> ');

 ReadLn(a);

 if a >= 0 then WriteLn('Больше или равно нулю')

 else WriteLn('Меньше нуля');

end.