Для 8-битной кодировки:
Для одной страницы требуется 40*60*8 бит = 40*60 байт = 2400 байт
1 ТБ переводим в байты:
1 ТБ=1*1024 Гбайт = 1024*1024 Мбайт = 1024*1024*1024 Кбайт = 1024*1024*1024*1024 байт
Количество страниц: 1024*1024*1024*1024 / 2400 ≈ 458 129 844,9 страниц
Высота стопки: 458 129 844 / 100 *0,01 ≈ 45813 м = 45 км
Var s: string;
i:integer;
begin
write('Введите текст: ');
readln (s);
for i:=1 to length(s) do
if s[i]='к' then write (i,' ');
<span>end.</span>
Рисунок 2:
program ggg;uses GraphABC;var xc,yc,y,x,r: integer;beginwriteln('введи центр окружности');readln(xc,yc);writeln('введи радиус окоружности');readln(r);x:= xc;y:= yc;Brush.Color:= clRandom;circle(x,y,r);circle(x-r,y-r div 4,r div 4);circle(x+r,y-r div 4,r div 4);circle(x,y-r,r div 2);
end.