Program test ;
var
x,y:integer;
begin
writeln (' Введите x ');
readln (x);
y:=x^3+x^2+286;
writeln ('y равно');
end.
Program enot;
Var s: string;
i,n:integer;
begin
write('введите предложение: ');
read(s);
n:= length (s);
for i:= 1 to n do
case s[i] of
'0': delete (s,i,1);
'1': delete (s,i,1);
'2': delete (s,i,1);
'3': delete (s,i,1);
'4': delete (s,i,1);
'5': delete (s,i,1);
'6': delete (s,i,1);
'7': delete (s,i,1);
'8': delete (s,i,1);
'9': delete (s,i,1);
end; writeln(s);
<span> end.</span>
<h2>1) Шифр Цезаря.</h2>
<h2>2) Шифр Атбаш</h2>
<h2>3) Шифр Виженера.</h2>
<h2>4) Шифр Хилла</h2>
<h3 /><h3>Вот держи.. Удачи в учёбе!</h3>
Const
n = 10;
var
matrix : array [1..n] of array [1..n] of integer;
i, j, max : integer;
begin
{формирование матрицы}
for j := 1 to n do
begin
if j <= Trunc(n / 2) then {находим последний индекс для вставки 1}
max := j
else
max := n - j + 1;
for i := 1 to max do {заполняем линию единицами}
begin
matrix[j][i] := 1;
matrix[j][n - i + 1] := 1;
end;
end;
{вывод матрицы (если не нужно, удалите код)}
for j := 1 to n do
begin
for i := 1 to n do
write(matrix[j][i], ' ');
writeln;
end;
end.
54 Кбайт = 54*1024*8 бит
Время передачи при скорости 2^13 бит/сек =
54*1024*8/2^13 = 54 сек
Стоимость = 54*5 = 270 коп
Время передачи при скорости 2^10 бит/сек =
54*1024*8/2^10 = 432 сек
Стоимость = 432*5 = 2160 коп
Переплата = 2160-270 = 1890 коп.
