<span>В египетском языке слово «рот» звучало как «эр», и они стали иероглифом обозначать не только слово «рот», но и согласный звук «р». Точно так же иероглиф «хлеб» употреблялся для обозначения звука «т», потому что по-египетски «хлеб» — «тэ», и так далее. Один значок мог обозначать и несколько звуков: иероглифом «мотыга», по-египетски — «мер», могли записывать сочетание двух согласных «м» и «р» в каком-нибудь слове. Гласные звуки иероглифами не передавались. </span>
Var x:array[1..5] of integer;
an:real;
pr,sum,i:integer;
begin;
pr:=1;
for i:=1 to 5 do
readln(x[i]);
for i:=1 to 5 do
sum:=sum+x[i];
for i:=1 to 5 do
pr:=pr*x[i];
an:=pr/sum;
writeln('Сумма:',sum);
writeln('Произведение:',pr);
writeln('Частное:',an);
<span>end.</span>
Const n=10;
var x : array[1..n] of integer;
i : integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
x[i]:=random(31)-30;
write(x[i],' ');
end;
writeln;
for i:=1 to n do
if x[i] mod 2 <>0 then x[i]:=x[i]*x[i];
writeln('Измененный массив:');
for i:=1 to n do write(x[i],' ');
writeln;
<span>end.</span>
Var n, i: Integer;
x, sum, temp, cosx: Double;
begin
ReadLn(x, n);
sum:=0;
cosx:=cos(x);
temp:=1;
for i:=1 to n do begin
temp:=temp*cosx;
sum:=sum+temp;
end;
WriteLn(sum);
end.