Если ты думаешь что радиоволны то ты ошибаешься. <span>На самом деле, радиоволны в микроволновом излучении несут информацию, например, о нарушении дипольной анизотропии реликтового излучения которое говорит о свойствах Вселенной происходивших 14 миллиардов лет назад,
днк 2 место по хранению информации
CD-ROM хранит информацию около 30 лет
а дискета около полугода</span>
Var c,i:integer;
function sov(k:integer):boolean;
var j,s:integer;
begin
result:=false;
s:=0;
for j:=1 to k div 2 do if k mod j=0 then s:=s+j;
if s=k then result:=true;
end;
begin
read(c);
i:=1;
while (sov(c+i)=false) and (sov (c-i)=false) do i:=i+1;
if sov(c+i)=true then writeln(c+i) else writeln(c-i)
<span>end.</span>
Ты можешь просто посчитать от 1 до 11)
4*2=8
Но если нужна программа, то вот:
var
a: <em>word</em>;
b: <em>byte;</em>
begin
readln(a);
b := a mod 100 div 10;
a := a div 1000 mod 10;
writeln(a, ' * ', b, ' = ', a * b);
end.