Помогите решить вариант 17. Нужно написать программу для паскаля .
5-9 класс
|
var a, b, c, x, L, y, s: double;
begin
s := 2 / 7;
a := -3.475; b := 1147.1759;
c := 0.2; x := 5.48653;
L := -15.12;
y := exp((2 / 7) * ln(b)) + ((power(x, 2) - cos(2 * L)) / sqrt(power(a, 2) - c)); writeln('Otvet: ', y:0:2);
end.
Другие вопросы из категории
производилось.Каков размер полученного файла?
написать без меток(вроде так называется)
2) по возможности с until repeat
Ниже листинг (с ошибками) непойму в чём дело
Объясните, каким образом производится доставка данных по указанному Интернет-адресу?
Читайте также
Ввести пять чисел и найти наибольшее из них.
Я тут написал кое-что ,но не знаю правильно ли :(
HELP ME.
program ru;
var a,b,c,d,e,max:integer;
begin
writln('Введите пять целых чисел');
if a>b then
begin
max:=a;
end
else begin
max:=b;
end;
if max>c then
begin
max:=max;
else begin
max:=c;
end;
if d>e then begin
max:=d;
end
else begin
max:=e;
end.
1. Написать программу нахождения произведения n чисел.
амеба каждые 3 часа делиться на 2 клетки. Определить, сколько амеб будет через 3,6,9,12 и 24 часа.
3) дано натуральное числоо N и действительное число Х. Вычислить сумму ряда sin(x)+sin(2x)+sin(3x)+...+sin(Nx).
4) написать программу для вычисления n-ой степени числа А.
помогите, пожалуйста)
такого: var a,b,c:(integer)-целые; l,k,n:(real)-вещественные), найти сумму первых двух чисел, частное второго и третьего числа и утроить сумму трёх чисел. мне нужно составить программу дальше я знаю только начало: program ur1; var a,b,c:integer; l,k,n:real; begin и всё я дальше не могу сделать, помогите полажуйста чем можете!