Цикл вида for i:=a to b выполняется b-a+1раз.
В данном случае 4-0+1=5.
<u>Ответ:</u> 5 раз.
Ответ:
var a,b,c,d:integer;
begin
writeln('введите число'); //запрос числа
readln(a);
d:=a; //это для красоты
while (a<>0) do begin //пока мы не дойдём до последней цифры в числе делать следующее
b:=a mod 10; //берём последнюю цифру числа
c:=c+b; //находим сумму цифр
a:=a div 10; //убираем из данного числа последнюю цифру
end;
writeln('сумма цифр числа ',d,' = ',c); // вывод результата
end.
Вроде вот)
Заменяем каждую цифру шестнадцатиричного числа соответствующей двоичной тетрадой.
BEC2(16)=1011 1110 1100 0010(2)
В полученном числе девять единиц.