Это система двоичного кодирования.
двоичное кодирование универсальное и самое простое для понимания
<span>var
i, k: real;
num:array[1..100] of integer;
begin
for: i := 1 to 99 do
num[i] := i;
k := 0;
i := 1;
while k < 7 do
begin
if easy(num[i])
then
k := k + 1;
i := i + 2;
end;
write(num[i-2]);
end.
Немного разобрал бред, но программа бессмысленная и проверка(if </span>easy(num[i])) мне не понятна, что это за процедура easy?
Что за массив без его описания, автор разберись с кодом, поучи синтаксис Паскаля.
— словарь в компьютере или другом электронном устройстве.
Позволяет быстро найти нужное слово, часто с учётом морфологии и возможностью поиска словосочетаний (примеров употребления), а также с возможностью изменения направления перевода (например, англо-русский или русско-английский).
Внутренне устроен как база данных со словарными статьями.
Электронные словари не стоит путать с компьютерными словарями, предназначенными не для пользователей, а для компьютерных программ, работающих с текстами на естественных языках того кто создал его это морзе
<em>var a, b, c, n :integer; </em>
<em>procedure max(a,b:integer; var c :integer); </em>
<em>begin </em>
<em> if a>b then c:=a else c:=b; </em>
<em>end;</em>
<em>begin</em>
<em> read (a,b,c);</em>
<em> max(a,b,a);</em>
<em> max(a,c,a);</em>
<em> write (a);</em>
<span><em>end.</em></span>
<span>writeln(a:6:2,' 'b:6:2,' ',с:6:2);</span>