Var i:integer;
n: array [1..8] of integer;
BEGIN
For i:=1 to 8 do
begin
Writeln('Vvedite element massiva');
Read(n[i]);
end;
Writeln;
For i:=8 downto 1 do
Writeln(n[i]);
Readln;
Readln;
END.
В ходе лабораторных и математических исследований я выяснил, что эта ерунда нафиг не нужна в современной информатике (только если вы не работаете преподом)
Ответ:
program dvuznach;
var a,b,c,d,f:integer;
begin
writeln('Введите двузначное число');
readln(a);
b:=a div 10;
c:=a mod 10;
d:=b+c;
f:=b*c;
writeln('Сумма=',d);
writeln('Произведение=',f);
end.
Объяснение:
Z:=a*a*a*cos( b*x*sin(x)*sin(x) ) + exp(1/3 *ln(c) )
ИЛИ
z:=exp(3 * ln(a)) * cos(b*x*sqr(sin(x)) +exp(1/3 * ln(c))
1)var
n:Integer;
a:array [1..10] of Integer;
begin
Read(n);
a[1]:=n mod 10;
n:=n div 10;
a[2]:=n mod 10;
Write((a[1]+a[2])/2);
end.
2) var
n:Integer;
a:array [1..10] of Integer;
begin
Read(n);
a[1]:=n mod 10;
n:=n div 10;
a[2]:=n mod 10;
Write(a[2]-a[1]);
end.
3) var
n,m:Integer;
begin
Read(n);
m:=n div 1000;
Write(m,'кг',' ',n-m*1000,'г' );
end.
4)var
n,m:Integer;
begin
Read(n);
m:=n div 10000;
Write(m,'километров квадратных');
end.