идеи многих своих изобретений человек подглядел в природе.
Var a, b, k:integer;
begin
readln(a);
readln(b);
if (a+b)>10 then
writeln(2*a*b)
else
if (a>b) then
begin
k:=a;
a:=a+b;
b:=k-b;
end
else
begin
k:=b;
b:=b+a;
a:=k-a;
end;
writeln(a, ' ', b);
end.
1) музыка
2)в компьютере
3)антенна
4)не знаю
5)к<span>оличество символов, из которых состоит </span><span>алфавит
6)32 байта
7)сколько символов
8)без понятия
9)40 байтов
10)</span>65536 или 8192
Че то подчеркнуть надо ???
д в а е ж б г (ftp<span>://</span> info.edu/list.doc)