Всего 52 ребёнка
Половина любит конфеты
20 человек и конфеты и мороженное
Сколько детей любит мороженное? Сколько детей любит только мороженное.
Решение:
1) 52:2=26 детей любит конфеты
2) 26+20=46 детей любят и то и то
Ответ: 26 детей любят только мороженное
Множество, не содержащее ни одного элемента
program lol; var x,a,b,d,y,h1,h2,h3,h4,h5,h6,h7,h8,h9,h10,h11,h12,h13,h14,h15,h16:real; begin writeln('Введите значения'); readl
Злой но справедливый
program lol;
var y,h1,h2,h3,h4,h5,h6:real;
x,a,b,d:integer;
function pow(x:real; n:integer):real;
var sign:integer;
begin
if (x<0) and (n mod 2 <> 0) then sign := -1 else sign := 1;
pow := sign * exp(ln(abs(x))*n);
end;
begin
writeln('Введите значения');
{readln(x,a,b,d); }
x:=2;a:=1;b:=3;d:=3;
h1:=x*x*x*a*a;
h1:=3*pow(cos(h1),x);
h2:=x-pow(b,5);
h2:=pow(sin(h2),4);
h2:=abs(5*a*h2);
h2:=pow(sin(h2),2*x);
h2:=h1+h2;
h3:=a-pow(d,4);
h4:=abs(h3);
h5:=pow(sin(x+6),3);
h5:=7*a+h5;
h5:=sqrt(h5);
h5:=h4*h5+d;
h5:=sqrt(h2/h5);
h6:=pow(sin(x),3);
writeln(h1,h2,h3,h4,h5,h6);
y:=h5*h6;
writeln('y= ',y);
end.
накрутил ты там короче
а основная ошибка была в том что нельзя брать логорифм от отрицательного числа
1-С) достоверность - отражает истинное положение дел
2-Е) точность - степень близости к реальному состоянию объекта
3-В) ценность - важность при решении задач
<span>4-D) понятность - </span>выраженность на языке доступном для получателя информации
<span>5-А) своевременность - </span>актуальность информации
Uses crt;
var a:array[1..4] of integer;
sum,i:integer;
begin
clrscr;
writeln('Введите 4 целых числа:');
for i:=1 to 4 do
begin
read(a[i]);
if a[i]mod 3=0 then sum:=sum+a[i];
end;
writeln('Сумма чисел, кратных трем: ',sum);
<span>end.</span>