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
Var
a: array[1..4] of integer;
i, max: integer;
begin
for i := 1 to 4 do
readln(a[i]);
max := a[1];
for i := 1 to 4 do
if (a[i] mod 2 = 0) and (a[i] >= max) then
max := a[i];
if max mod 2 = 0 then
writeln(max)
else
writeln('not found');
end.
формальные языки это те, которые придумали люди , но на них они не разговаривают, а используют в своей профессиональной деятельности
поэтому формальными можно считать, например, 1,2,5,6
16 =
=> i = 4; по 4 бита на каждое число и переводим числа по отдельности
1₁₆ = 0001₂
E₁₆ = 1110₂
9₁₆ = 1001₂
1E9₁₆ = 111101001₂
4₁₆ = 0100₂ = 100₂
