//PascalABC.Net;
//(c) NaaMan;
var
s, k : integer;
begin
k := 1;
for var i := 1000 to 9999 do begin
s := 0;
for var j := 0 to 3 do begin
s += (i div round(power(10, j)) mod 10)
end;
if (i mod s = 0) then begin
write(i, ' ');
if (k mod 4 = 0) then writeln;
k += 1
end
end
end.
Объяснение:
Данная работа представляет собой изучение понятия информационные перегрузки, причины, методы борьбы и профилактики информационных перегрузок. В работе также приводится систематизация результатов исследования проблемы, содержащихся в научной литературе и в интернете. Работа носит исследовательский характер, имеет четкое оформление. Содержание реферата опирается на материал учебной программы и вместе с тем содержит элемент более глубокого изучения данной темы
Решил часть заданий. Склеить и поглотить попробуете сами.
1.
За неимением нужного шрифта я обозначил
Х прямое
высказывание, а
х отрицание
f1 =
(x1·x2·x3)v(x1·X2·X3)v(X1·x2·x3)v(X1·X2·X3)
f2 =
(x1·x2·X3)v(x1·X2·X3)v(X1·x2·x3)v(X1·X2·x3)
f3 =
(x1·x2·x3)v(X1·x2·x3)v(X1·x2·X3)v(X1·X2·x3)v(X1·X2·X3)
f4 =
(x1·x2·x3)v(x1·x2·X3)v(X1·x2·x3)v(X1·x2·X3)v(X1·X2·X3)
2.
f1 =
(x1·x2·X3)v(x1·X2·X3)v(X1·x2·X3)v(X1·X2·x3)
<span>В Excel листах защита без пароля. Защиту не снимайте, чтобы не
модифицировать формулы, иначе может быть ошибка. Листы живые, подставляйте
формулы в ячейки, защита в них снята.</span>
10 см ширина * (600 dpi для ширины/2,54) = ~2362 пикс ширина
15 см высота * (600 dpi для высоты/2,54) = ~3543 пикс высота
2362*3543*3 байт пикс = 25105698 байт инф. объём файла (вес файла)