Ни одно из множеств K и U не является подмножеством другого.
#include <iostream>
<span>#include <fstream>
</span><span>#include <cstring>
</span><span>using namespace std;
</span>int main() <span>{
</span><span> ifstream fi;
</span><span> ofstream fo;
</span><span> fi.open("input.txt");
</span><span> string sd,sw,inp = "";
</span><span> int i,j;
</span><span> while(!fi.eof())
</span><span> {
</span><span> fi>>i>>j;
</span><span> if (((i%2==0) && (j%2==0)) || ((i%2==1) && (j%2==1)))
</span><span> sd=sd+char(i+48)+" "+char(j+48)+" ";
</span><span> else sw=sw+char(i+48)+" "+char(j+48)+" ";
</span><span> }
</span><span> fi.close();
</span><span> fo.open("output.txt");
</span><span> fo<<sw<<endl;
</span><span> fo<<sd<<endl;
</span><span> fo.close();
</span><span> return 0;
</span><span>}
</span><span>
</span>
Количество символов в сообщении: 48*64*40= 122880
Информационный объем сообщения= кол-во символов*информационный объем одного символа= 122880*8= 983040 бит
983040/8= 122880 байт
122880/1024= 120 Кбайт
Ответ: Размер статьи = 120 Кбайт
Если масив заполнить нужно рандомно:
program wk;
var i,s:integer;mas:array [1..10] of integer;
begin
s:=0;
for i:=1 to 10 do
begin
mas[i]:=random(21)-20;
if mas[i] mod 2=0 then s:=s+mas[i];
end;
writeln('S=',s)
end.
Если масив заполняется с клавиатуры:
program wk;
var i,s:integer;mas:array [1..10] of integer;
begin
s:=0;
for i:=1 to 10 do
begin
readln(mas[i]);
if (mas[i] mod 2)=0 then s:=s+mas[i];
end;
writeln('S=',s)
end.
Техника, девайсы, устройства. Подбирайте что больше подходит, аверное у вас там кроссворд какой-то, но надо было написать кол-во букв
