Const
n = 10;
var
b: array [1..n] of real;
i: byte;
begin
for i := 1 to n do
begin
b[i] := cos(i);
writeln('b[',i,'] = ', b[i]);
end;
end.
// PascalABC.NET 3.1, сборка 1171 от 15.02.2016
begin
var s:=ReadInteger('n=').ToString;
if (Pos(s[1],Copy(s,2,2))>0) or (s[2]=s[3])
then Writeln('Есть одинаковые цифры')
else Writeln('Нет одинаковых цифр')
end.
<u><em>Тестовое решение:</em></u>
n= 141
Есть одинаковые цифры
Program z6; Var a: array [1..10] of string; i,j,l:integer; s,g,s_2:string;Begin write('Введите строку - '); readln(s); l:=s.Length; i:= 1; j:= 1; while i <= l do begin while (s[i] <> ' ') and (i <= l) do begin a[j]:=a[j] + s[i]; i:= i + 1; if (i > l) then break; end; j:= j + 1; i:= i + 1; end; i:= 1; while (a[i] <> '') do begin g:=a[i]; g[1]:= (Upcase(g[1])); s_2:= s_2 + g + ' '; i:= i + 1; g:=''; end; writeln(s_2);End.
<span><span> #include <iostream></span><span> #include <math.h></span><span> using namespace std;</span><span> int main()</span><span> {</span><span> int i, n, k = 0;</span><span> cin >> n;</span><span> for (i = 2; i <= sqrt(n); i++){</span><span> if (n%i==0)</span><span> k ++;</span><span> }</span><span> if (k > 0)</span><span> cout << "composite";</span><span> else</span><span> cout<<"prime";</span><span> return 0;</span><span> <span>}</span></span></span>
Переводим КБайты в байты = 1.280.000
Переводим в биты = 10.240.000
Делим на скорость = 40секунд
Вроде так