//Это экспериментальное решение, не воспринимайте всерьёз
var ar:array[1..15] of integer;
i:integer;
begin;
var i1:=1;
while i1<=15 do
begin;
var ar1:=ArrRandomInteger(4,1,20);
sort(ar1);
ar[i1]:=ar1[1];
ar[i1+1]:=ar1[2];
ar[i1+2]:=ar1[3];
writeln(ar1[1]:4,ar1[2]:4,ar1[3]:4);
i1:=i1+3;
end;
writeln('Final array:');
for i:=1 to 15 do
write(ar[i]:4);
<span>end.</span>
МОДЕЛЬ<span> [model] (в том смысле, как этот термин применяется в словаре) — логическое или математическое описание компонентов и функций, отображающих </span>существенные свойства<span>моделируемого </span>объекта<span> или </span>процесса<span> (обычно рассматриваемых как </span>системы<span> или </span>элементы системы<span>). М. используется как условный образ, сконструированный для упрощения их исследования. Природа моделей может быть различной (общепризнанной единой классификации моделей в настоящее время не существует): </span>материальные<span> или </span>вещественные<span> модели (напр., М. самолета в аэродинамической трубе);</span>знаковые<span> модели двух типов — </span>графические<span> (чертеж, географическая карта) и </span>математические<span>(формула, описывающая гравитационное взаимодействие двух тел); </span>материально-идеальные<span> (“</span>деловая игра<span>”); словесное описание объекта (явления, процесса) можно также рассматривать как его М.</span>
Program n1;
Uses CRT;
Var a,b: integer;
begin
Writeln('Vvedite chisla');
Readln(a,b);
If a>b then writeln(2*a*b,' ',a+b/2:2:2)
else if a=b then writeln('ravny!')
else writeln(a+b/2:2:2,' ',2*a*b);
readln
end.
<span>a = int(input(</span>'input A '<span>))
b = int(input(</span><span>'input B '</span><span>))
for i in range(a,b+1):
for j in range(10):
if str(i).count(str(j)) == 3:
print(i);
Тестовое решение:
input A 1190
Input B 1500
1191
1211
1222
1311
1333
1411
1444
</span>
Решение задачи в приложенном файле.
Ответ TFSBGJNB
(1-ая программа - шифратор. 2-ая - решение к первой части задания)