<u>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
function NOD(var a,b:integer):integer;
begin
if a>b then a:=a-b
else
if b>a then b:=b-a;
if a=b then Result:=b
else Result:=NOD(a,b)
end;
begin
var (a,b):=(21,14);
Writeln(NOD(a,b))
end.
Алгоритм Евклида работает <u>только для натуральных чисел</u>!
1024 симв. - 1/2 кБайт
2048 симв. - 1 кБайт
2048 симв. - 1024 байт
1 симв. - 1/2 байт
1 симв. - 4 бит
2^4 = 16 символов в алфавите
ЦВЕТОПЕРЕДАЧА
Ц В Е
ТОПОР =》 ТОП
ДЕРЕВО =》 ОВЕРЕД =》ЕРЕД
ВРАЧ =》 АЧ
А
Если предметы, цифры или буквы изображены один в другом, то их названия читаются с добавлением предлога "в" (перед или между названий).
Если справа (сверху) от рисунка стоят перевёрнутые запятые (одна или несколько), то отбрасываются буквы в конце слова.
Если предмет на рисунке перевернут, то его название читают справа налево.
Если слева (внизу) от рисунка стоят запятые (одна или несколько), то отбрасываются первые буквы слова (по количеству запятых).
12 * 2= 24
24 * 2=48
48-3=45
45-3=42
42-3=39
39-3=36
36-3=33