Словесная форма алгоритма:
<u>начало</u>
<u>введите</u> Х
<u>если</u> Х>10 <u>тогда</u>
Х=Х+2
<u>иначе</u>
Х=Х*10
<u>напечатать</u> Х
<u>конец</u>
Var n,a,i,s:integer;
begin
readln(n);
s:=0;
for i:=1 to n do
begin
readln(a);
s:=s+a;
end;
writeln(s);
end.
Пример:
3
12
54
91
157
ОТДЕЛ Задание+;
ПОСТ
n = 10;
ПЕР
массив: РЯД n ИЗ ВЕЩ;
сумма, среднее: ВЕЩ;
сч: ЦЕЛ;
УКАЗ
сумма := 0;
ОТ сч := 0 ДО n - 1 ВЫП
сумма := сумма + массив[сч]
КОН;
среднее := сумма / n
КОН Задание.
Var
a,i,k:integer;
begin
readln(a);
while a<>0 do begin
if a mod 2=0 then
k:=k+1;
a:=a div 2;
end;
writeln(k);
<span>end.</span>