Var N,i:integer; s:real;beginwriteln('vvedite N');readln(N);s:=1;for i:=2 to N dos:=s-1/i;writeln('Summa = ',s);end.
Если мы используем 16-буквенный алфавит, то один символ кодируется 4 битами (2^i=16 i=4 бит).
Найдем общее количество символов в тексте: 25*35*60=52500 символов
Общее количество бит: 52500*4=210000 бит
Переведем в байты: 210000:8=26250
Ответ: 26250 байт
Program t2; var a: integer; Begin write ('Введите колличество суток'); read (a);writeln ('Колличество часов ', a*24);writeln ('Колличество минут ',a*24*60);writeln ('Колличество секунд ',a*24*60*60); end.
uses
GraphABC;
begin
var i, j: integer;
for i := 50 to 150 do
for j := 50 to 150 do
putpixel(i, j, clBlack);
Window.save('1.bmp');
<span>end.
</span>
Var
s:string;
n:integer;
begin
Readln(s);
n:=Length(s);
if Odd(n) then Delete(s,1,2)
else Insert('www',s,n div 2+1);
Writeln(s)
end.