1. В египетском письме более 700 иероглифов. 2. Гласные звуки иероглифами не передавались. 3. Одни из иероглифов передавали отдельные согласные звуки, другие - сочетания согласных звуков, а третьи - целые слова. 4. Египтяне ставили рядом со словом значок-определитель, который не читается, а только подсказывает, о чём идёт речь.
В египетском письме более 700 иероглифов.Одни из иероглифов передавали отдельные согласные звуки,другие сочетания согласных звуков, а третьи целые слова.
Const n=20; var a: array[1..20] of integer = ( 20, 9, 24, 12, 23, 24, 21, 17, 1, 15, 25, 8, 21, 2, 6, 4, 12, 16, 8, 13); i,j,k: integer; begin for i:=1 to n-1 do for j:=i+1 to n do if a[j]<a[i] then swap(a[i],a[j]); writeln('отсортированный массив: '); for i:=1 to n do write(a[i],' '); writeln; k:=0; i:=1; j:=2; repeat if a[j]-a[i]>=3 then begin writeln('пара: ',a[i],' ',a[j]); i:=j; inc(k); end; inc(j); until j>n; writeln('количество солдат:k+1); end.
// 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.
// PascalABC.NET 3.1, сборка 1200 от 13.03.2016 procedure IsPrime(n:integer; var res:boolean); begin if n<4 then res:=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; res:=not found end end;
begin var a:=ArrRandom(ReadInteger('n='),1,999); a.Println; var k:=0; var prime:boolean; foreach var e in a do begin IsPrime(e,prime); if Prime then Inc(k) end; Writeln('k=',k) end.
1. В египетском письме более 700 иероглифов.
2. Гласные звуки иероглифами не передавались.
3. Одни из иероглифов передавали отдельные согласные звуки, другие - сочетания согласных звуков, а третьи - целые слова.
4. Египтяне ставили рядом со словом значок-определитель, который не читается, а только подсказывает, о чём идёт речь.