Помогите, пожалуйста... Очень нужно.Только не кидайте решения из Интернета, они не подходят.
Полоска бумаги имеет размеры а*b. Каждый раз от неё отрезается квадрат максимального размера до тех пор, пока не получится квадрат. Сколько квадратов получится? Программе даны числа а и b(1<=a,b<=10^9).
Необходимо решение на языке Pascal
Полоска бумаги имеет размеры а*b. Каждый раз от неё отрезается квадрат максимального размера до тех пор, пока не получится квадрат. Сколько квадратов получится? Программе даны числа а и b(1<=a,b<=10^9).
Необходимо решение на языке Pascal
More Questions From This User See All
Answers & Comments
Uses crt;
var a,b: real;
k: integer;
begin
write('Введите размеры a и b: ');
readln(a,b);
while (a<>b) do
begin
if (a<b) then b:=b-a else a:=a-b;
Inc(k);
end;
writeln('Число квадратов: ',k+1);
end.
begin
readln(a,b);
WHILE (b<>0) DO
begin
t:=a mod b;
inc(n, a div b);
a:=b;
b:=t;
end;
writeln(n);
end.