Написать программу в Паскаль!!! Даю 20 баллов!!!
Приложения:

Ответы на вопрос
Ответил BobbyFresnel
0
===== PascalABC.NET =====
procedure Разрезать(var a, b: integer);
begin
if a * b = 0 then
exit;
if a < b then
Swap(a,b);
Writeln(a div b, ' квадратов размером ', b, ' x ', b);
(a, b) := (b, a mod b);
Разрезать(a, b)
end;
begin
var (a, b) := (425, 131);
Разрезать(a, b)
end.
Приложения:

Новые вопросы
Русский язык,
2 года назад
Русский язык,
2 года назад
Алгебра,
7 лет назад
Математика,
7 лет назад
Математика,
9 лет назад