Program rrr;
var a,s:longint;
begin
read(a);
s:=455545656566556;
if (a mod 4)=0 then s:=a div 2
else s:=a;
write(s);
end.
1. 40 килобайт = 40960/1024
2. ДВГАБ
3. 20 килобит это 20*1024=20480 бит это объем всего текста далее 16*64*40=40960 бит значит 2 страницы
с:/7 класс/опрос/самостоятельная работа.doc
5. вопрос не могу точно ответить 75
Program prl;
uses crt;
var i,n,summa:integer;
srednee:real;
a:arra[1..100] of integer;
begin
write('Введите кол-во четных элементов');
readln(n);
summa:=0;
for i:=1 to n do begin
write('Введите ',i,' элемент:');
readln(A[i]);
summa:=summa+A[i];
end;
srednee:=summa/(n div 2);
writeln('Среднее арифметическое',srednee:3:2);//
readln;
end.
Я бы посоветовал:
1) Если Delphi 7, то могут быть проблемы с русскими наименованиями таблиц/столбцов в БД (у самого так было).
2) Я бы по другому запрос написал, примерно так:
SELECT * FROM infa WHERE familia >= +QuotedStr(help2) (в конце уже не помню как там в делфи надо, чтоб переменную в запрос добавить)
Надеюсь помог, удачи.
A - 10
Б: 1 и 0 не подходят, но подходит 01 (2 сим)
В: Мы не должны начинать с 0, 1 , 01 и 10, но можем начать с 11
Получаем 110. (3 сим)
Г: 111 (3 сим)
Условие Фано: ни одно кодовое слово не должно быть началом другого кодового слова. Выполняется.
Ответ: 3+3+2 = 8.