Задача і розв'язок у "pascal" для учнів старшої школи

Задачі Pascal

1 . Дано прямокутник із сторонами А,В, де А,В натуральні числа. Від нього відсікають квадрат. Скільки таких квадратів можна відсікти, якщо кожен раз відсікати найбільший квадрат?

Для тестування : А = 5, В=6,К=6

                               А=24,В=34, К=7

                               А=13, В=17, К=8

Розв’язок

Program;

Var a,d,k : integer;

Begin

Write (‘a’);readln(a);

Write (‘b’);readln(b);

K:=0;

While (a≥0) and(b≥0) do

begin

If  a≤b then b:=b-a  else a:=a-b;

K:=k+1;

end;

writeln (‘k=’,k) ;

readln;

End.