• Написать программу в паскаль по алгоритму. Фото внутри

    question img
    question img

Ответы 1

  • Var a,b,c,max:real;BeginWrite('a = ');ReadLn(a);Write('b = ');ReadLn(b);Write('c = ');ReadLn(c);if a>b then   if a>c then max:=a   else max:=celse   if b>c then max:=b   else max:=c;WriteLn(max)End.Var a,b,c,D:real;BeginWrite('a = ');ReadLn(a);Write('b = ');ReadLn(b);Write('c = ');ReadLn(c);D:=b*b-4*a*c;if D>=0 then   Begin   WriteLn('x1 = ',(-b-sqrt(D))/(2*a));   WriteLn('x2 = ',(-b+sqrt(D))/(2*a));   Endelse   if c<>0 then WriteLn('Корней нет')   else Write('Любое число')End.
    • Автор:

      sasha7cbx
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years