по алгоритму евклида:
var a,b:integer;
begin
readln(a,b);
repeat
if a>b then
a:=a mod b
else
b:=b mod a;
until (a=0) or (b=0);
writeln(a+b);
end.
-------------------------
var a,b:integer;
begin
readln(a,b);
while (a<>0) and (b<>0) do
if a>b then
a:=a mod b
else
b:=b mod a;
writeln(a+b);
end.
2)-------B
3)-------C
1)-------A
12 рукопажатий. Судя по логике. Есть ли в твоем вопросе изюминка, не знаю.
Program up1;
var q:integer;
begin
writeln('введите число');
read(q);
if q>0 then write('число больше 0') else write('число меньше 0');
end.
Шаг
шаг
прыжок
поворот
поворот
поворот
шаг
шаг
прыжок
поворот
поворот
поворот
шаг
шаг
прыжок
поворот
поворот
поворот
шаг
шаг
прыжок