• написать программу на языке паскаль (разветвляющийся алгоритм):
    1) F=x2-3 (икс в квадрате минус три), x2=x*x (x в квадрате равен x умножить на x)
    2) S=1/2ab (одна вторая а б)
    3) С=a2-b2 (а в квадрате минус б в квадрате)

Ответы 2

  • var x,f,s,c,a,b:real;beginwrite('X = ');readln(x);write('A = ');readln(a);write('B = ');readln(b);f:=x*x-3;s:=a*b/2;c:=a*a-b*b;writeln('F=',f:3:2,' S=',s:3:2,' C=',c:3:2);end.
    • Автор:

      aaron261
    • 6 лет назад
    • 0
  • 1) Не разветвление)program xizt;uses crt;var x,f:real;begin writeln ('введите х');readln (x);f:=sqr(x)-3;writeln (f);end.2) program xizt;uses crt;var a,b,s:real;begin writeln ('введите a,b через пробел');readln (a,b);s:=1/2*a*bwriteln (s);end.3) program xizt;uses crt;var a,b,c:real;begin writeln ('введите a,b через');readln (a,b);c:=sqr(a)-sqr(b);writeln (c);end.
    • Автор:

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

Еще вопросы

Войти через Google

или

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

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

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