Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var n,z: longint;
begin
read(n);
z: =abs(n);
z: =z-2;
writeln(z);
end.
один символ - один байт, значит надо кол-во бит поделить на 8:
24576 /8 = 3072 символа
исполняемые файлы:
test.exe = 459 кб
photo.exe = 117 кб
letter.com - 198 кб
графические файлы:
nature.jpg = 314 кб
program.bmp = 361 кб
текст. документы:
comp.doc = 238 кб
получается порядок:
test.exe
program.bmp
nature.jpg
comp.doc
letter.com
photo.exe
var
b1,b2,i,n,p: integer;
write('введите n'); readln (n); b1: =5; writeln ('1 элемент = ', b1);
p: =-1;
for i: =2 to n do
p: =p*(-1);
b2: =p*b1-8;
writeln (i,' элемент = ', b2);
b1: =b2;
end;
Популярные вопросы