Напишите программу на языке паскаль, которая - вопрос №656430 от alenajad 11.10.2021 02:10

Question

Информатика: Напишите программу на языке паскаль, которая будет вычислять наибольший общий делитель для двух целых чисел а) с repeat б) с while

alenajad · Answer

а)var a,b:integer; begin read(a,b); repeat if a b then a:=a-b else b:=b-a; until (a=b); write(a); end.б)var a,b:integer; begin read(a,b); while (a b) do if a b then a:=a-b else b:=b-a; write(a); end....