1Б
2Б+1К
3Б+2К+1С
1Б+3К+2С
2Б+1К+3С
3Б+2К
3К
Где 1,2,3 - номера башен
Возьми слово переписка
подбирай слова такие чтобы в них была буква п е р е п и с к а.
все!
67 = 1000011 переводит надо делением на 2 столбиком и записывать остаток
И каждая прикладная программа может создавать свои собственные файлы для своих нужд
Program z;
const n=5;
var a:array[1..n] of real;
i:integer; s:real;
begin
s:=0;
for i:=1 to n do
begin
readln(a[i]);
s:=s+a[i];
end;
s:=s/n;
for i:=1 to n do
if a[i]>0 then a[i]:=s;
for i:=1 to n do
write(a[i],' ');
end.