<span>for (i=0; i printf("%i ", fun1(mas[i]); тут что-то странное написано</span>
Формула включений-исключений для двух множеств:
A | B = A + B - A & B
4) фрегат | эсминец = фрегат + эсминец - фрегат & эсминец
фрегат = фрегат | эсминец - эсминец + фрегат & эсминец
фрегат = 4500 - 2500 + 500 = 2500
5) крейсер | линкор = крейсер + линкор - крейсер & линкор
крейсер & линкор = крейсер + линкор - крейсер | линкор
крейсер & линкор = 4800 + 4500 - 7000 = 2300
6) торты | пироги = торты + пироги - торты & пироги
торты = торты | пироги - пироги + торты & пироги
торты = 12000 - 7700 + 6500 = 10800
Учитель- учит детей наукам, ставит оценки за знания.
Продавец- продаёт людям товар, еду и.т.п.
Коресспондент- сообщает по телевизору, (телевизионным программам) новости в мире или в определённом месте.
Программист- составляет компьютерные программы.
"акинукыл" - Каникулы
"евнса" - Весна
"етеливроз" - Телевизор
;)
Var A, gradus, minut, N: real;
Begin
Writeln('Введите A градусов');
readln(A);
Writeln('До какой температуры остужать:');
readln(N);
gradus:=100-A;minut:=1;
While (gradus>N) do
Begin
A:=A*(1-0.15);
gradus:=gradus-A;
minut:=minut+1;
end;
Writeln('Кипяток остынет до ',N,' градусов через ', minut, ' минут');
readln();
<span>end.</span>