Напишите программу на языке Паскаль, которая будет вычислять наибольший общий делитель для двух целых чисел
а) с помощью repeat
б) с помощью while
а) с помощью repeat
б) с помощью while
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
а)
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.