Var n,m,a,b,c,d:integer;
begin
write('n = ');
readln(n);
a:=n div 1000;
b:=n div 100 mod 10;
c:=n mod 100 div 10;
d:=n mod 10;
m:=d*1000+c*100+b*10+a;
writeln('m = ',m);
end.
Пример:
n = 1762
m = 2671
Мне кажется семья ,но я не уверена
Нельзя более 5000 символов, поэтому просто дам ссылку http://school-25.ru/informatika/uch_8kl_sem/04.html
Ответ:
var
a,x,b,c: real;
begin
write('Введите стоимость покупки = ');
readln(x);
a := x/100;
a := Trunc(a);
a := a*5;
b := x/50;
b := Trunc(b);
b := b*2;
c := x*0.03;
if (a>b)and (a>c)
then
writeln('RP')
else
if (b>a) and (b>c)
then
writeln('BB')
else
if (c>a) and (c>b)
then
writeln('MM')
else
writeln('Суммы равны, Алена выбирает <MM>')
end.
const
n = 5;
var
arr: array [1..2*n] of <em>integer </em>:= (0,1, -2,1, -1,-1, 1,2, -3,0);
i: <em>byte </em>:= 1;
maxr: <em>real</em>;
begin
repeat
maxr := max(sqrt(sqr(arr[i]) + sqr(arr[i + 1])), maxr);
i += 2;
until (i > 2 * n - 1);
writeln(maxr);
end.