Сканер - С =200
Принтер - П =250
Монитор - М =450
П | С=450
П & М=40
С & М=50
П | С | М-?
Исходная формула:
<em>П | С | М = П + С + М - (П & М) - (П & С) - (С&M) + (П & С & М)</em>
П&C и П&C&M у нас нет.
Посмотрим на П, С, П|C
П+С=П|C, П и С не пересекаются, поскольку их сумма равна их объединению П&С=0, это значит что П&C&M тоже равно 0
Подставим все в формулу:
П | С | М= 250 + 200 + 450 - 40 - 0 - 50 + 0=810
<u>Ответ: 810</u>
. ............................
первая
var
a : longint := 2;
begin
write('первые 16 степеней числа ', 2,' : ');
for var i := 1 to 16 do begin
a *= 2;
write(a, ' ');
end;
end.
втрая
var
a, p, o, n : integer;
begin
write('введите 10 чисел : ');
for var i := 1 to 10 do begin
read(a);
if a < 0 then o += 1 else if a > 0 then p += 1 else n += 1;
end;
writeln('положительных = ', p);
writeln('отрицательных = ', o);
writeln('нулю = ', n);
end.
третья
var
n, s : integer;
begin
write('введите n=');
readln(n);
for var i := 1 to n do s += i;
writeln('сумма чисел s=', s);
end.
// PascalABC.NET 3.3
// Cборка 1590 от 03.12.2017
1)
begin
var n:=ReadInteger('Введите n-> ');
var s:=0;
for var i:=1 to n do
s+=i*i;
Println('Сумма:',s);
end.
Пример:
Введите n-> 3
Сумма: 14
2)
begin
var n:=ReadInteger('Введите n-> ');
var s:=1;
for var i:=1 to n do
s*=i;
Println('Сумма:',s);
end.
Пример:
Введите n-> 3
Сумма: 6