Умоляю очень нужно сделать . От Нужно выполнить задания в паскали и нарисовать блок схемы .

Тебе не это точно тебе нужно всё самому делать так как тут тебе не

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 , но тут уже можно будет зрительно сравнивать

В озере живут караси и окуни. Подсчитано, что карасей 1500, а окуней - 500. Сколько информации содержится в сообщениях о том, что рыбак поймал карася, окуня, поймал рыбу? Решение. (События поимки карася или окуня не являются равновероятными, так как окуней в озере меньше, чем карасей.) Общее количество карасей и окуней в пруду 1500 + 500 = 2000. Вероятность попадания на удочку карася p1 = 1500/2000 = 0,75, окуня p2 – 500/2000 = 0,25. I1 = log2(1/p1), I1 = log2(1/p2), где I1 и I2 – вероятности поймать карася и окуня соответственно. I1 = log2(1 / 0,75) = 0,43 бит, I2 = log2(1 / 0,25) = 2 бит – количество информации в сообщении поймать карася и поймать окуня соответственно. Наверное так