<u>PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
procedure Zamena(var Stroka:string);
begin
var cin:='abcdefghijklmnopqrstuvwxyz'.ToCharArray;
var n:=cin.Length;
var cout:=cin[1:n]+cin[:1];
for var i:=1 to Stroka.Length do begin
var p:=cin.IndexOf(Stroka[i]);
if p>=0 then Stroka[i]:=cout[p]
end
end;
begin
var aa:='a bc 83xz';
aa.Println;
Zamena(aa);
aa.Println
end.
<u>Пример</u>
a bc 83xz
b cd 83ya
В цикле прибавит 7 к самой себе 9 раз, т.е 7*9=63
Ответ: 63
150 * 60 *40 = 360000 символов (всего)
1 символ = 1 байт
360000:=
1) 2880000 битов
2) (приблизительно) 352 кб
3) 0,34 мб
4) 0, 0003 гб
5) 0,0000003 терабайта Если для кодирования символа используется 8 бит, то объем книги:
1500*40*60*8 бит = 150*40*60*8 /8 байт = 150*40*60 байт =
150*40*60 / 1024 Кбайт = 351,5625 Кбайт = 351,5625/1024 Мбайт ≈ 0,35 Мбайт.
или
Если для кодирования символа используется 8 бит, то объем книги:
1500*40*60*8 бит = 150*40*60*8 /8 байт = 150*40*60 байт =
150*40*60 / 1024 Кбайт = 351,5625 Кбайт = 351,5625/1024 Мбайт ≈ 0,35 Мбайт.
решение в среде Паскаль:
Var a:array[1..10] of Integer; i,s,m: integer; f,t:real;
begin
s:=0;
writeln('write marks');
For i:=1 to 10 do begin
readln(a[i]);
If i>1 then begin
If a[i-1]=2 then begin
If a[i]<>2 then begin s:=s-2; m:=m-1; end;end;end;
s:=s+a[i];
m:=m+1;
end;
f:=s/m;
t:=Int(f);
Writeln('His or her mark is ', t:2:0);
readln;
end.
10кб*8*1024=81920бит
40*64=2560 всего символов на 1 странице
81920/2560=32 страницы