Во всех программах у меня будет использоваться процедура swap:
procedure swap(a: ^real; b: ^real);
var
t: real;
begin
t := a^;
a^ := b^;
b^ := t;
end;
swap(x,y) - меняет местами значения x и y.
1.
var
A: array[1..100] of real;
i, j, N: integer;
begin
readln(N);
for i := 1 to N do
read(A[i]);
for j := 1 to (N div 2) - 1 do
for i := 1 to (N div 2) - j do
swap(A[i], A[i + 1]);
for j := 1 to (N div 2) - 1 do
for i := (N div 2) + 1 to N - j do
swap(A[i], A[i + 1]);
for i := 1 to N do
writeln(A[i])
end.
2.
var
A: array[1..100] of real;
i, N: integer;
begin
readln(N);
for i := 1 to N do
read(A[i]);
for i := 1 to N - 1 do
swap(A[i], A[i + 1]);
for i := 1 to N do
writeln(A[i])
end.
3.
var
A: array[1..100] of real;
i, N: integer;
begin
readln(N);
for i := 1 to N do
read(A[i]);
for i := N downto 2 do
swap(A[i], A[i - 1]);
for i := 1 to N do
writeln(A[i])
end.
var a:integer;
begin
readln (a);
writeln('Цифра десятков: ',abs(a) div 10);
writeln('Цифра единиц: ',abs(a) mod 10);
end.
Пример:
25
Цифра десятков: 2
Цифра единиц: 5
<span>1) a=число 376 четное, b=</span><span>число 376 трехзначное: a & b
2) a=зимой дети катаются на коньках, b=</span><span>зимой дети катаются на лыжах: a | b
3) a=новый год мы встретим на даче, b= </span><span>новый год мы встретим на Красной площади: a | b
4) a=солнце движется вокруг земли: ¬a
5) a=земля имеет форму шара, b=шар из космоса кажется голубым: a & b
6) a=был урок математики, b=старшеклассники отвечали на вопросы учителя, c=</span><span><span>старшеклассники</span> писали самостоятельную работу: a & b & c</span>
Var n,x,max:integer;
begin
readln(n);
while n>0 do
begin
x:=n mod 10;
if x>max then max:=x;
n:=n div 10;
end;
writeln('Максимальная цифра: ',max);
<span>end.</span>
На экран будет выведено:
3
1
1
4
2
2
5
Расчет - в прилагаемом файле.
