Помогите, пожалуйста... Очень нужно.Только не кидайте решения из Интернета, они не подходят. Полоска бумаги имеет размеры а*b. Каждый раз от неё отрезается квадрат максимального размера до тех пор, пока не получится квадрат. Ск...
Помогите, пожалуйста... Очень нужно.Только не кидайте решения из Интернета, они не подходят.
Полоска бумаги имеет размеры а*b. Каждый раз от неё отрезается квадрат максимального размера до тех пор, пока не получится квадрат. Сколько квадратов получится? Программе даны числа а и b(1<=a,b<=10^9).
Необходимо решение на языке Pascal
Гость
Ответ(ы) на вопрос:
ГостьProgram Prog;
Uses crt;
var a,b: real;
k: integer;
begin
write('Введите размеры a и b: ');
readln(a,b);
while (a<>b) do
begin
if (a
Не нашли ответ?
Похожие вопросы