6
18÷2=9 чел. любят математику
9+3=12 чел. любят математику литературу и историю
18-12=6 чел. любят физ-ру и музыку
Program Z2;
Var q,s,n,x,y,m,w,a,b,c: real;
Begin
write ('введите число a=');
readln (a);
write ('введите число b=');
readln (b);
write('введите число c=');
readln (c);
x := c+sqrt(a)*sin(sqrt(c));
y := sin(3*b)*cos(3*b);
s := sqrt(a-x/y);
m := ln(1+sin(a));
w := sqrt((b+c)/(a*a-1))+(a/(c*b));//error x2
n := sqrt(b+(m/w));
q := sqrt((3+s)/(8-n));//error x4
writeln(q);
End.
Объяснение:
комментарии - кол-во ошибок(делал для себя) , крч говоря 2 лишних корня и пара скоьок в действии q, и ... вроде бы лишние скобки в w , но тут уже можно будет зрительно сравнивать
Ладно, раз все эти нюансы не важны, то вот так:
program Project1;
var
x,y, d: real;
begin
write(' Enter X:');
readln(x);
write('Enter Y:');
readln(y);
d:= ((abs(x)-abs(y)))/((1+abs(x*y)));
writeln(d:0:5);
readln;
end.
Не уверена, что поняла вопрос правильно, но всё-таки:
1. Разделить десятичное число на 2, получится частное и остаток.
2. Разделить <em>частное</em> на 2, получится частное и остаток.
3. Продолжать деление частных, пока последнее частное не будет меньше 2.
4. Последнее частное и остатки записать в обратном порядке.
Например, из 27 в десятичной = 11011 в двоичной.
<em>E:\Видеозапись.avi</em>
<em>E:\График.xls</em>
<em>E:\Изображения\Аквариум.bmp</em>
<em>E:\Изображения\фото\Бия.jpeg</em>
<em>E:\Изображения\фото\Катунь.jpeg</em>
<em>E:\Тексты\буква.txt</em>
<em>E:\Тексты\цифры.doc</em>
<em>E:\Онегин.doc</em>
<em>E:\Мелодия.mp3</em>