Question

ДОПОМОЖІТЬ ПОТРІБНО НА СЬОГОДНІ ДАЮ 20 БАЛІВ!!!!!!!!!!!!!!!!!!!!!!!!! У даному фрагменті програми обчислення кількості цифр числа а знайдіть помилку та виправте її. ck:=0; While a>=0 Do Begin ck:=ck+1; a:=a div 10 End;

Answer 1

Объяснение:

While a>=0 Do

Begin

ck:=ck+1;

a:=a div 10

End;

Answer 2

Здається, ви вказали на помилку в рядку While a>=0, де порівнюється число a з нулем. Проте для обчислення кількості цифр у числі a, ви маєте перевіряти, чи a більше за нуль. Я виправлю цю помилку для вас:

pascalCopy code
ck := 0;
While a > 0 Do
Begin
    ck := ck + 1;
    a := a div 10;
End;

Цей код буде працювати коректно, враховуючи, що ви маєте правильні значення для a та ck.