На первом этапе прохождения первого цикла (s mod 10 =0) условие выполнится, так как (2014120150 mod 10 =0). mod -выделение остатка от деления, если число 2014120150 делить на 10, то остаток 0. а так как условие выполнится, то следуем по ветке "Да" и переменная a :=0+1=1 (то есть переменная а станет равной 1)
Далее выполняется действие 2014120150 div 10 =201412015 (то есть s примет значение уже 201412015)
Дальше идет проверка условия 201412015 >=10, так как условие выполняется, то цикл повторяется опять.
и так каждый раз, то есть переменная а-счетчик нулей,их всего три, поэтому на выходе а=3
Ответ:<span>
</span>f16(16)<span> + </span>7(16)<span> = </span>f1d(<span>16)
</span>f1d(16) + 3(16) = f20(<span>16)</span>
Program Natur;
Uses Crt;
Var a, Summa, n : integer;
Begin
Clrscr;
write('N=');
readln(N);
{Цикл с предусловием}
a:=2;
Summa:=0;
while a<=N do
begin Summa:= Summa + a; a := a + 1 end;
Writeln (' Результат первого суммирования:' , Summa) ;
{Цикл с постусловием}
а:=1;
Summa:=0;
repeat Summa:=Summa+ а; а:=а+1 until a>N;
Writeln
(' Результат второго суммирования:' , Summa) ;
{Цикл с параметром} Summa:=0;
for а := 2 to N do Summa : =Summa + a;
<span>Writeln (' Результат третьего суммирования:', Summa); End</span>
Смотря в каком юникоде. Есть 31 битовый, есть 16 битовый. Тут похоже 16 битовый 47*16 = 752 Ответ: B
Друга ищи, а найдёшь - береги.
Старый друг лучше новых двух.