<em><u>Программа шифровки:</u></em>
DATA "ауоыэяюёие"
DATA "бвгджзклмнпрстфхцчшщ"
DATA "ъйь"
DIM s10 AS STRING, s20 AS STRING, s3 AS STRING
DIM i AS INTEGER
DIM s AS STRING, t AS STRING
CLS
READ s10, s20, s3
RANDOMIZE TIMER
INPUT "Введите фразу: ", s
t = ""
FOR i = 1 TO LEN(s)
t = t + MID$(s, i, 1)
t = t + MID$(s10, INT(10 * RND + 1), 1)
t = t + MID$(s20, INT(20 * RND + 1), 1)
t = t + MID$(s3, INT(3 * RND + 1), 1)
NEXT i
PRINT t
END
<em><u>Программа дешифровки:</u></em>
DIM s AS STRING, t AS STRING, <span>i AS INTEGER</span>
CLS
INPUT "Введите фразу: ", s
t = ""
FOR i = 1 TO LEN(s) STEP 4
t = t + MID$(s, i, 1)
NEXT i
PRINT t
END
Var a,b: longint;
begin
read (a);
readln (b);
if a>b then
writeln (a)
else writeln (b);
<span>end.</span>
На первой модели вид с верху. На второй модели более заострённая крыша.
Если учесть что это изображение 1*1 пиксель то это 2^144
Var
x:real;
arr2: array [1..4,1..6] of integer;
arr1: array [1..4] of integer;
begin
writeln('Введи число для сравнения');
readln(x);
for var i:=1 to 4 do
begin
writeln('Вводим строку ',i);
for var j:=1 to 6 do
begin
writeln('Введи число ', j);
readln(arr2[i,j]);
if arr2[i,j]>x then arr1[i]:=arr1[i]+1;
end;
end;
writeln('Двумерный массив: ', arr2, ' Количество чисел больше заданного: ', arr1);
<span>end.</span>