Напишите программу на языке паскаль, которая будет вычислять наибольший общий делитель для двух целых чисел а) с repeat б) с while
yuliyaefremova3
1
16.04.2019 19:25
1
Другие вопросы по теме Информатика
www6363901fs
14.07.2019 17:20
Як12
04.10.2021 10:43
ggghh99
04.10.2021 10:40
НЕЗНАЙКА2283371
02.10.2019 06:30
мидина5
02.10.2019 06:30
kriss200900
02.10.2019 06:30
KateDonut1
03.01.2021 12:59
pashka4060
07.08.2019 09:20
аноним12345567808
07.08.2019 09:20
Популярные вопросы
- Львi тусіндіріп Оқулықта 7 бет, 2- тапсырма.Түсініп оқып, дәптерге...
1 - Learning to use 311.4.2 Read the text again. Mark the sentences (1-5)...
1 - Ткани животных. Расположение- Функции- Ткань- Особенности строения-...
2 - Плюсы и минусы озера Маркаколь...
1 - Қысқа қашықтыққа жүгірудің дұрыс кезеңдерін анықта...
2 - шар ұзындығы 1,25 м болатын көлбеу жазықтық бойымен 1,6 м/с2 үдеумен...
3 - Заполните недостающие статьи: 1. Мы ходим в… спортзал дважды… неделю.2....
3 - с таблицей надо ................
3 - Қорқыт ата мұрасы мәңгілік шығарма...
1 - Р 0.16. Решите систему уравнений:11) [113) 3х - 2y =2?х2 324y – х...
2
а)
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.