Решите 190¹⁰ = ?⁸ 458¹⁰ = ?⁸ 122¹⁰ = ?⁸ 567⁸ = ?¹⁰ 212⁸ = ?¹⁰ 333,55⁸ = ?¹⁰

Question

Информатика: Решите 190¹⁰ = ?⁸ 458¹⁰ = ?⁸ 122¹⁰ = ?⁸ 567⁸ = ?¹⁰ 212⁸ = ?¹⁰ 333,55⁸ = ?¹⁰

hmrl123 · Accepted Answer

1. Вот так это пишется с функцией // PascalABC.NET 3.1, сборка 1200 от 13.03.2016 function IsPrime(n:integer):boolean; begin   if n 4 then Result:=True   else begin     var found:= (n mod 2 = 0);     var p:=3;     while (not found) and (sqr(p) =n) do       begin       found:=(n mod p = 0);       p+=2       end;     Result:=not found     end end; begin   Writeln( k= ,ArrRandom(ReadInteger( n= ),1,999).Println.     Where(x- IsPrime(x)).Count) end. Тестовое решение: n= 10 401 828 780 444 694 965 23...

MOGZ ответил

Решите
190¹⁰ = ?⁸
458¹⁰ = ?⁸
122¹⁰ = ?⁸
567⁸ = ?¹⁰
212⁸ = ?¹⁰
333,55⁸ = ?¹⁰