Ответ:
1110011010
Объяснение:
Решается деление на 2. Остаток и является ответом.
Var a,b,k:integer;
begin
readln(a,b);
k:=0;
while a*b<>0 do begin
if a>b then a:=a-b else b:=b-a;
k:=k+1;
end;
writeln(k);
end.
Пример:
4200 9126
22
<u>PascalABC.NET 3.4.0, сборка 1672 от 10.06.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('n=');
var a:array of real;
a:=SeqRandom(n,-99,99).Select(t->real(t)).ToArray; a.Println; Writeln;
a.Where(t->Trunc(t) mod 3 <>0).Println
end.
Я предлологаю что ответ будет 3 , просто нужно 15:5=3