Регистрация
qqwweerrqq
25.10.2022 06:25
Информатика
Есть ответ 👍

написать программы на языке"Паскаль" 9-12

145
291
Посмотреть ответы 2

Ответы на вопрос:

chuvataeva
chuvataeva
4,7(54 оценок)

Отказано

Объяснение:

Плохо видна фотография

Ivanpomogite228
Ivanpomogite228
4,4(22 оценок)

var a,b,nod,k:integer;

begin

readln(a,b);

k:=0;

while (a<>0)and(b<>0) do

begin

if a>b then a:=a mod b else b:=b mod a;

k:=k+1;

end;

nod:=a+b;

writeln(nod,' ',k);

end.

Пример:

21 14

7 2

Объяснение:

Популярно: Информатика