Предмет: Математика, автор: Машуля946

пжлст решитея просто тупенькая

Приложения:

Ответы

Автор ответа: Laynex

0

0.03 получится но это не точно

Предыдущий вопрос

Следующий вопрос

Интересные вопросы

Предмет: Математика, автор: alskjdhfg

Аркуш паперу прямокутної форми завдовжки 45 см і завширшки 30 см роз
різали на однакові квадрати з найбільшою довжиною сторони. Якою є стороні
такого квадрата?

6 лет назад

Предмет: Математика, автор: arualiaiy

7(5f+30)+6(25-3f)=411

6 лет назад

Предмет: Математика, автор: hghghggg99977

сделайте быстрее пж

6 лет назад

Предмет: Информатика, автор: diana6918styles

Помогите пожалуйста!!!
Выводит мощность 100 надо чтоб выводило 2
при таком условии ввода чисел: X1{20,26,34,45,58} X2{20,26,45,30,92} X3{20,45,15,30,92}
Program ex1;
var x1,x2,x3,y,p: set of 1..100;
s,a,i:integer;
begin
x1:=[ ]; x2:=[ ]; x3:=[ ];
writeln('Вв. 5 элементов множества x1 через Enter:');
For i:=1 to 5 do
begin
readln(a);
x1:=x1+[a];
end;
Writeln('Вв. 5 элементов множества x2 через Enter:');
For i:=1 to 5 do
begin
readln(a);
x2:=x2+[a];
end;
Writeln('Вв. 5 элементов множества x3 через Enter:');
For i:=1 to 5 do
begin
readln(a);
x3:=x3+[a];
end;
Writeln;
y:=(x2*x3)-((x1*x2)+(x1*x3));
P:=[ ]; S:=0;
For i:=1 to 100 do
begin
S:=s+1;
P:=P+[i];
if (i=20) or (i=30) then writeln('элемент ',i,' входит в множество');
end;
for i:=1 to 100 do
For i in P then Write(i,' ');
Writeln('Мощность P:',S);
Readln;
end.

9 лет назад

Предмет: Математика, автор: дикоса

решить задачу в мешке было 12кг помидоров 15 кг огурцов о моркови столько сколько огурцов и помидоров вместе сколько всего овощей

9 лет назад