Const
n = 10;
var
a: array[1..n] of integer;
i: integer;
function sum: integer;
var
tmp, prev, cur, s, i: integer;
flg: boolean;
begin
s := 0;
for i := 1 to n do
begin
flg := true;
tmp := a[i];
prev := 9;
cur := 0;
while tmp > 0 do
begin
cur := tmp mod 10;
if cur > prev then
begin
flg := false;
break;
end;
prev := cur;
tmp := tmp div 10;
end;
if flg then inc(s);
end;
sum := s;
end;
begin
writeln('Исходный массив: ');
for i := 1 to n do
begin
a[i] := random(1000);
write(a[i], ' ');
end;
writeln;
writeln('Ответ: ', sum);
end.
<span>Система письменности в Древнем Египте сложилась к началу I династии, то есть примерно в 4 тысячелетии до н. э. На протяжении многих лет самыми ранними иероглифическими надписями считались надписи на палетке Нармера (приблизительно 3200 до н. э.). Однако в 1998 году немецкая группа археологов под руководством Гюнтера Дрейера на раскопках в Абидосе (современный Умм-эль-Кааб) обнаружили в гробнице додинастического правителя триста глиняных табличек покрытых протоиероглифами (датируются 33-м веком до н.э). Первое предложение, написанное иероглифами, найдено на печати времен II династии из могилы Сет-Перибсена в Умм эль-Кааб.
Первоначально египетское письмо было пиктографическим (рисуночным): слова изображались наглядными рисунками, например:
— солнце,
— бык.
Следующим шагом было создание идеографического (смыслового) письма. При помощи знаков этого письма, идеограмм, можно было записывать некоторые отвлеченные понятия, — например, знаком
(горы) — горную, то есть чужеземную, страну;
(солнце) — слово «день», исходя из того, что солнце светит лишь днем. Идеограммы играют большую роль и впоследствии в развитой системе египетской письменности. Например, все смысловые определители являются идеограммами.
Позже появляются звуковые знаки, в которых изображенный рисунок связан уже не со значением слова, а с его звуковой стороной</span>
1)
uses crt;
var a:integer;
begin
for a:=-10 to 10 do
writeln('a=',a,' ',a*a*a:6);
<span>end.
---
2) 10
10</span>
LET X = 0.2BEGINFOR Z = 1 TO Z = 3Z = Z+1y=1,5*a*xcos(x)X=X+0.2
END