1
Объяснение:
Для начала посчитаем выражения в первой скобке:
512^78 = 2,1040543606193494028963959531521e+211
512^60 = 3,5991310356345571062484308061488e+162
Вычитаем: 512^78-512^60 = 2.104054e+211
Теперь во второй:
512^5 = 35 184 372 088 832 (35 триллионов 184 миллиарда 372 миллиона 88 тысяч 832)
64^5 = 1 073 741 824 (1 миллиард 73 миллиона 741 тысяча 824)
Вычитаем: 35 184 372 088 832 - 1 073 741 824 = 35 183 298 347 008
Считаем общее выражение:
(512^78-512^60)*(512^5+64^5) = 7.403209e+224
Получается, одна цифра 7.
Надеюсь
var
a, n: longint;
text: textfile;
function myMod(num, power, divider: longint): longint;
var
rest, i: longint;
begin
rest:=1;
divider := abs(divider);
for i := 1 to power do
begin
rest := rest * num;
rest := rest mod divider;
end;
myMod := rest;
end;
begin
assign(text, 'input.txt');
{rewrite(text);
writeln(text, 1);
close(text);}
reset(text);
read(text, a);
writeln('a=', a);
close(text);
n := 0;
repeat
n := n + 1;
until MyMod(n, n, a) = 0;
writeln('n=', n);
assign(text, 'output.txt');
rewrite(text);
writeln(text, n);
close(text);
{reset(text);
read(text, n);
writeln('n=', n);
close(text);}
end.
