Program primer;
Uses crt;
var a: integer;
begin clrscr;
write('Введите число a = ');
readln(a);
writeln;
if ((a mod 10) = 4) or ((a div 10) = 4) then
writeln('Цифра 4 входит в число ')
else
writeln('Цифра 4 не входит в число ');
readln;
end.
var
a: array [1..10] of integer;
x,i: integer;
begin
writeln('Заполните массив: ');
for i:=1 to 10 do read(a[i]);
x:=a[3];
a[3]:=a[9];
a[9]:=x;
for i:=1 to 10 do write(a[i]:4);
<span>end.</span>
в алфавите 9+15*2=39 символа -> минимальное число бит на один символ: 6
9 Кбит = 9*1024 бит
на 1 пароль 9*1024/24=384 бит ~ 384/6=64 символа
// PascalABC.NET 3.1, сборка 1201 от 18.03.2016
begin
var a:=ReadlnString.Sorted.TakeLast(2).ToArray;
Writeln(StrToInt(a[0])+StrToInt(a[1]));
end.
<u><em>Тестовое решение:</em></u>
324576854532
15