Регистрация
MaliikaZ
25.08.2021 22:44
Информатика
Есть ответ 👍

Решить : а) дано квадратное уравнение. найти решения уравнения, оформив вычисление корней в процедуре с параметрами и без параметров. б) найти наименьшее из четырех чисел, оформив вычисление минимума из двух чисел процедурой.

202
351
Посмотреть ответы 2

Ответы на вопрос:

animetan200
animetan200
4,4(25 оценок)
Program quadraticequation;     var    a, b, c, d, x1, x2: real;   begin  writeln ('введите коэффициенты'); readln(a, b, c);   d : = b * b - 4 * a * c;   if d > = 0 then begin  if d < > 0 then begin  x1 : = (-b + sqrt(d)) / 2 * a;   x2 : = (-b - sqrt(d)) / 2 * a;     writeln('x1 = ', x1: 4: 2, ', x2 = ', x2: 4: 2)    end    else begin  x1 : = -(b / 2 * a);   writeln('x = ', x1: 4: 2)    end    end    else begin  writeln('нет реальных решений');     end    end. 
Маша28201
Маша28201
4,8(33 оценок)

var

  a, b: integer;

begin

  randomize;

  a : = random(100);

  write('100 = ', a, ' + ');

  readln(b);

  if a + b = 100 then

      writeln('правильно')

  else

      writeln('неправильно, нужно было ввести ', 100 - a);

end.

 

Популярно: Информатика