Много баллов за ответ! Пожалуйста сделайте задание в электрическом виде(в написанном

Я не совершенно разумею... ммм, программы паскаля есть различные, к примеру PascalABC.NET, Freepascal и т.д. Для тебя для какой нужно чтоб это работало?

Здесь все программы рабочие в среде PascalABC.NET испытаны. Здесь какой-то баг при копировании с этого веб-сайта проявляется. Нужно поубирать отступы в каждой строке, где они есть. К примеру, в третьей строке "a,b,c,d,e,min: real" убрать отступы слева, чтобы начиналось без пробелов и табов. И так дальше для каждой строчки с отступами.

у меня есть готовые варианты, если бы я могла вам кинуть куда-то,для того чтоб вы проверили...это вероятно?

Я могу сбросить ссылку на страницу ?

сайт корявый, я даже не могу отредактировать собственный ответ, попробуй если не забанят за ссылку

не получается(( вообщем можно так... наберите в контакте Моника Смит(только английскими знаками)

Monika Smith

51 год

там выскочит только одна страница

на фото девушка с темными волосами и красноватой сумкой

Program primer1;
var
   a, b, c, d, e, min: real;

begin
   writeln('вводим 5 чисел: ');
   readln(a, b, c, d, e);
   min := a;
   if min gt; b then min := b;
   if min gt; c then min := c;
   if min gt; d then min := d;
   if min gt; e then min := e;
   write('Меньшее значение = ', min)
end.

//---------------------------------------------------
program primer2;
var
   a, b, c, D, x1, x2: real;

begin
   writeln('введите коэффициенты уравнения A, B, C: ');
   readln(a,b,c);
   D := b*b - 4*a*c;
   if Dgt;=0 then begin
      x1 := (-b + Sqrt(D))/(2*a);
      x2 := (-b - Sqrt(D))/(2*a);
      writeln('x1 = ',x1,', x2 = ',x2)
   end
   else writeln('корней нет')
end.

//-----------------------------------------
program primer3;
var
   N, i: integer;
   a, b, max: real;

begin
   write('введите кол-во чисел: N = ');
   readln(N);
   write('введите 1-ое число: a = ');
   readln(a);
   max := a;
   for i := 2 to N do
   begin
      write('введите последующее число: ');
      readln(b);
      if b gt; max then max := b
   end;
   write('величайшее значение = ', max)
end.