Напишите программу ** языке Паскаль, которая будет вычислять наибольший общий делитель...

0 голосов
34 просмотров

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


Информатика (153 баллов) | 34 просмотров
0

извини но я в 4 классе и не могу помочь мы ещё это не изучали.....

Дан 1 ответ
0 голосов

а)

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.

(1.4k баллов)
0

Спасибо огромное!!!