Var
s:string;
d,i:integer;
begin
s:='177777277777377777477777';
d:=length(s);
for i:=1 to d-4 do
if copy(s,i,5)='77777' then
begin
delete(s,i,5);
insert('00000',s,i);
end;
writeln(s);
end.
В 7-ричной системе счисления используются 7 разных цифр.
1) Найдём сначала количество всех возможных 5-значных чисел.
На первом месте в числе может стоять любая из 7 цифр, кроме 0, то есть 6 вариантов.
На втором, третьем, четвертом и пятом местах может стоять любая из 7 цифр, то есть по 7 вариантов на каждое место.
Всего возможных чисел: 6*7*7*7*7=14406
2) Найдём теперь количество чисел, у которых строго ВСЕ цифры разные.
На первом месте в числе может стоять любая цифра, кроме 0, то есть 6 вариантов.
На втором месте может стоять любая из 6 оставшихся, то есть тоже 6 вариантов.
На третьем месте может стоять любая из 5 оставшихся, то есть 5 вариантов.
На четвертом месте может стоять любая из 4 оставшихся, то есть 4 варианта.
И, наконец, на пятом месте может стоять любая из 3 оставшихся, то есть 3 варианта.
Всего возможных чисел: 6*6*5*4*3=2160
3) Теперь найдём искомое количество чисел, у которых НЕ ВСЕ цифры разные:
14406 - 2160 = 12246
Ответ: 12246
#include <iostream>
#include <math.h>
using namespace std;
int main()
{
double W, t, r, y;
cin >> t;
cin >> r;
cin >> y;
W = (4 * pow(t, 3) + log(r)) / (exp(y+r)+7.2*sin(r));
cout << W;
}
var x: real;
begin
readln(x);
write(5*power(x,3)+0.5-3*power(x,2));
end.
P.s power(x,y) - это функция, которая возводит число x в степень y.