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

Ребят, помогите, пожалуйста, составить программку в Паскале

Задать свой вопрос
1 ответ
Var a, b, c, s, k: real;
begin
     readln(a, b, c, k);
     s := ((a * b - c * k) * a) / (b * b - a * c);
     writeln('S = ', S);
     writeln('F(S) = ', sin(3.14 / 6) - 0.5 * S / (a * b * c));
end.

2)
var l, m, n, k: real;
begin
     readln(l, m, n);
     k := (l - n) / (l * n) * n;
     if ((k lt; 0) or (k gt; 1)) then
     begin
          writeln('X = ', (sqr(l) - n) / m);
          writeln('Y = ', k * (l - m) / l);
     end
     else
     begin
          writeln('X = ', (k * l * m) / n);
          writeln('Y = ', l * m * k);
     end;
end.
Дмитрий Реунин
спасибо огромное. да, нужна
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт