ребят, помогите, пожалуйста, составить программу в Паскале
10-11 класс
|
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.
Другие вопросы из категории
может посоветуете ещё сыйты. спасибо.
Какой размер в битах будет иметь файл, в котором зарегистрированы номера 42 спортсменов, пересекших финиш?
которая отвечает на вопрос: "Существуют ли два последовательных числа, не превосходящих , сумма цифр каждого из которых делится на ?"
Входные данные. Два числа
Выходные данные. Программа выводит два таких числа, если они существуют, "NO" - если нет.
Читайте также
1. Напишите программу формирования и вывода массива размером 6x3, каждые три последовательных элемента в строке которого составлены по следующему правилу:
1-й — равен случайному числу;
2-й — равен целой части квадратного корня из предыду щего элемента;
3-й-равен сумме двух предыдущих элементов.
Составить программу перевода натурального числа из десятичной системы счисления в двоичную