Нужно.только не кидайте решения из интернета, они - вопрос №5858093 от milamilmi 15.11.2020 10:57

Question

Информатика: Нужно.только не кидайте решения из интернета, они не подходят. полоска бумаги имеет размеры а*b. каждый раз от неё отрезается квадрат максимального размера до тех пор, пока не получится квадрат. сколько квадратов получится? программе даны числа а и b(1 =a,b =10^9). необходимо решение на языке pascal

milamilmi · Answer

Program Prog;Uses crt;var a,b: real;    k: integer;beginwrite( Введите размеры a и b: );readln(a,b);while (a b) dobeginif (a b) then b:=b-a else a:=a-b;Inc(k);end;writeln( Число квадратов: ,k+1);end....