Question

ДОПОМОЖІТЬ БУДЬ ЛАСКА​

Answer 1

Ответ:1)

program GCD;

var

 a, b, remainder, gcd: Integer;

begin

 WriteLn('Введіть перше число А:');

 ReadLn(a);

 WriteLn('Введіть друге число B:');

 ReadLn(b);

 // Застосовуємо алгоритм Евкліда

 while b <> 0 do

 begin

   remainder := a mod b;

   a := b;

   b := remainder;

 end;

 // Результат - НСД

 gcd := a;

 WriteLn('Найбільший спільний дільник (НСД) чисел A і B: ', gcd);

end.

2)

program CountDigits;

var

 num, count: Integer;

begin

 WriteLn('Введіть число:');

 ReadLn(num);

 count := 0;

 // Обчислення кількості цифр у числі

 while num <> 0 do

 begin

   num := num div 10;

   count := count + 1;

 end;

 WriteLn('Кількість цифр у введеному числі: ', count);

end.

Объяснение: