Program p1;
uses crt;
var a:array[1..30] of integer;
sr,s:real;
i:integer;
begin
for i:=1 to 30 do begin
read(a[i]);
s:=s+a[i];
end;
sr:=s/30;
write(sr);
end.
А•16^0+F•16^1+1•16^2
A=10
F=15
10+15•16+256=506
Вот ОДНО из ВОЗМОЖНЫХ рассуждений (вероятно, можно уловить и другие алгоритмы):
В числе А - одна единица
В числе Б - две единицы
В числе В - три единицы
В числе Г - две единицы (то есть поехали назад...)
Значит в числе Д - ОДНА единица, т.е. Д - 100
Varn, nine, one: integer;
begin
readln(n);
nine := 0;
one := 0;
while (n > 0) do
begin
if (n mod 10 = 1) then
inc(one)
else
if (n mod 10 = 9) then
inc(nine);n := n div 10;
end;
if (one = nine) then
writeln('Равны')
else
if (one > nine) then
writeln('Единиц больше')
else
writeln('Девяток больше');
<span>end.</span>
X=[] # задаем пустой список для чисел
while True: # открываем бесконечный цикл
i=int(input()) #вводим целое число
if i!=0: # если это число не 0
x+=[i] # то запишем его в список
else:
break # иначе стоп циклу
mx=max(x) # найдем максимальный элемент в списке
k=0 # зададим начальное значение счетчику 0
for i in x: # для каждого числа из списка х
if i==mx: # если это число равно максимуму
k+=1 # увеличим счетчик на 1
print(k) # вывод счетчика