Const n=5; var a,b:array[1..n] of integer; i,sa,sb:integer; begin Randomize; for i:=1 to n do begin a[i]:=random(10)-5; write(a[i]:3); end; writeln; for i:=1 to n do begin b[i]:=random(10)-5; write(b[i]:3); end; writeln; sa:=0; sb:=0; for i:=1 to n do begin sa:=sa+a[i]; sb:=sb+b[i]; end; writeln('sa=',sa,' sb=',sb,' P=',sa*sb); end.
1. Основная трудность при чтении египетских иероглифов в том, что большинство египтян не имели понимания древнегреческой системы иероглифов. 2. Египтяне использовали значки-определители для того, чтобы лучше было читать. Значки-определители служили для звучаний слов. 3. Потому что само чтение или писание древнегреческих иероглифов было сложно , так как в то время образования было ужасным. 4. Первым, кому удалось расшифровать египетские иероглифы, был французский учёный, Жан-Франсуа Шампольон(1790-1832). Он составил полный список иероглифов и их греческих эквивалентов, создав тем самым основу для перевода всех египетских иероглифических текстов. 5. Основным носителем информации в египте являлись глиняные таблички, папирусные свитки и наскальные надписи. 6. Стебли растения разрезали на полосы, которые переплетали между собой, прессовали и высушивали на солнце. 7. Хранили в глиняных кувшинах и шкатулках.
1) собирается - журналист опрашивает людей для статьи 2) обрабатывается - ученик решает уравнение 2) упрощается - преподователь объясняет материал 3) создается - журналист придумывает статью 4) запоминается - парнень запоминает номер телефона девушки 5) измеряется - программист рассчитывает сколько бит займет программа 6) копируется - ученик списывает у одноклассника 7) передается - две девушки обмениваются новостями 8) принимается - ученики слушают учителя на уроке 9) разрушается - статья журналиста отвергается 10) делится на части - человек разбирает сообщение в котором пропущены пробелы 11) ищется - человек ищет материал для реферата в интернете
var a,b:array[1..n] of integer;
i,sa,sb:integer;
begin
Randomize;
for i:=1 to n do
begin
a[i]:=random(10)-5;
write(a[i]:3);
end;
writeln;
for i:=1 to n do
begin
b[i]:=random(10)-5;
write(b[i]:3);
end;
writeln;
sa:=0; sb:=0;
for i:=1 to n do
begin sa:=sa+a[i]; sb:=sb+b[i]; end;
writeln('sa=',sa,' sb=',sb,' P=',sa*sb);
end.