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

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

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

а)

var a,b:integer;

begin

read(a,b);

repeat

if agt;b then

a:=a-b

else

b:=b-a;

until (a=b);

write(a);

end.

б)

var a,b:integer;

begin

read(a,b);

while (alt;gt;b) do

if agt;b then

a:=a-b

else

b:=b-a;

write(a);

end.

Гомонилов Колька
Спасибо громадное!!!
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт