Циклически сменяющиеся Путин и Медведев, чем не пример или отражение в двух зеркалах, поставленных друг против друга, по разные стороны от человека
Var i, n, k: integer;
var A: array [1..10] of integer;
begin
k:=0;
for i:=1 to 10 begin
A[i]:=random(15);
if A[i]=5 then
k:=k+1;
end;
if k=0 then writeln('нет');
else writeln('да');
end.
Сначала определим объем одного символа в пароле. Мощность алфавита - 10 цифр + 32 символа верхнего регистра + 32 символа нижнего регистра = 72.
72 символа можно закодировать 7-ю битами, т.к. 6-ю битами можно закодировать 2^6=64 символа (не хватает), а 7-ю - 2^7=128 символов (хватает).
Длина пароля - 11 символов, 11*7=77 бит.
Каждый пароль кодируется минимальным целым количеством байт:
77:8 = 9,625, но требуется целое количество байт, то есть 10 байт.
Всего 50 паролей, 50*10=500 байт.
<em><u>Вариант с процедурой Delete</u></em>
var
s:string;
k:integer;
begin
Write('Введите слово: '); Readln(s);
Write('Какую по порядку букву удалить? '); Read(k);
Delete(s,k,1);
Writeln('Результат: ',s)
end.
<em><u>Вариант с функцией Copy</u></em>
var
s:string;
k,n:integer;
begin
Write('Введите слово: '); Readln(s);
Write('Какую по порядку букву удалить? '); Read(k);
n:=Length(s);
s:=Copy(s,1,k-1)+Copy(s,k+1,n-k);
Writeln('Результат: ',s)
end.
<em><u>Вариант с циклами</u></em>
var
s,s1:string;
k,i,n:integer;
begin
Write('Введите слово: '); Readln(s);
Write('Какую по порядку букву удалить? '); Read(k);
n:=Length(s);
s1:='';
for i:=1 to k-1 do s1:=s1+s[i];
for i:=k+1 to n do s1:=s1+s[i];
Writeln('Результат: ',s1)
end.
<em><u>Тестовое решение (одинаково для всех вариантов):</u></em>
Введите слово: Таракан
Какую по порядку букву удалить? 4
Результат: Таркан
<em><u>Блок-схемы всех вариантов находятся во вложениях</u></em>
===== PascalABC.NET =====
begin
var n := ReadInteger('n =');
var a :=ReadArrInteger(n); // бессмысленное занятие
a := ArrRandom(n, 1, 50);
a.Println
end.