Нужно.только не кидайте решения из интернета, они не подходят. полоска бумаги имеет размеры а*b. каждый раз от неё отрезается квадрат максимального размера до тех пор, пока не получится квадрат. сколько квадратов получится? программе даны числа а и b(1< =a,b< =10^9). необходимо решение на языке pascal
Heh6
3
01.08.2019 19:20
3
Другие вопросы по теме Информатика
tonia8
23.06.2019 17:50
stasleraz
23.06.2019 17:50
Olegbro364682
23.06.2019 17:50
Dag18y5557hvvhi
10.09.2019 18:30
lenalatka
10.09.2019 18:30
musinda
13.05.2020 14:28
VanekPhantom
13.05.2020 14:27
Yskakova206
13.05.2020 14:28
Евгения1031
13.04.2020 19:10
Популярные вопросы
- Напишите маленькое сочинение 4-5 предложений на любую тему: 1) зима.-...
3 - Сочините сказку на 1 тетрадный лист, сказку можно сочинить о чём угодно....
3 - Сказка дочь-семилетка. придумать для девочки новые загадки...
3 - 100*10-10+46+54=100 где поставить скобки...
3 - Священный союз 1815 года: 1) какие страны в него вошли? 2) какова...
1 - Какие определения характеризуется алатау?...
2 - Напишите сочинение на тему краски осени...
2 - Корень из 5-x - корень из 5+x равно 2...
3 - Укажите грамматическую основу в предложении вечером тучи внезапно...
3 - Ставится ли запятая перед словом только...
1
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.