Var
a: array[1..10] of integer;
i, max, imax: integer;
begin
for i:=1 to 10 do
readln(a[i]);
max := 0;
for i:=1 to 10 do
if (a[i] > max) and (a[i] > 4) and (a[i] < 9) then
begin
max := a[i];
imax := i;
end;
writeln(imax);
end.
Var i,s,a:integer;
begin
s:=0;
for i:=21 to 99 do
begin
a:=i mod 10;
if (i mod 3 = 0)and((a=2)or(a=4)or(a=8)) then s:=s+i;
end;
writeln('s = ',s);
end.
Результат:
<span>s = 402</span>
Площадь разделить на длинну
B64F (16) = 11*16^3 + 6*16^2 + 4*16^1 + 15*16^0 = 45056 + 1536 + 64 + 15=
= 46671 (10)
Переберём все числа в диапазоне [10; 100). Сохраним наше текущее число в отдельную переменную. Пока копия числа больше нуля, будем умножать переменную произведения этого числа на последнюю цифру числа (% 10). Потом удалять последнюю цифру у копии числа (// 10).
<h3>Код</h3>
for i in range(10, 100):
i1 = i
pr = 1
while i1 > 0:
pr = pr * (i1 % 10)
i1 = i1 // 10
if i == pr*2:
print(i)