Var a,b,c,d:integer;begind:=0;a:=0;b:=0;c:=0;beginreadln(a);readln(b);readln(c);d:=a+b+c;if d > 3 thenbeginwriteln('A',a-1) ;writeln('B',b-1);writeln('C',c-1);end;elsea:=a*a;b:=b*b;c:=c*c;end;writeln('A',a) ;writeln('B',b);writeln('C',c);end. / в коде ошибка (
На столько хватило времени.
Еще можно при помощи макросов автоматизировать ведение базы до 60000 записей
выделить ячейку->ввести знак->выделить ячейку с первым.->ввести знак операции->выделить ячейку с вторым оп. -> нажать enter
Таак. 56 кбит/с = 7 кбайт/с
7*5 = 35 кбайт/5с
Система бникод ─ 2 байта на символ
Итого 35/2 = 17 символов.