Question

Помогииитеее
Решите срочноо

Answer 1

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

№1

begin
  var n:=Abs(ReadInteger('Введите 4-х значное число'));
  var d:array[1..4] of integer;
  for var i:=1 to 4 do begin
    d[5-i]:=n mod 10;
    n:=n div 10
    end;
  if (d[1]+d[2]).IsOdd then Writeln(d[3]+d[4])
  else Writeln(d[4]*d[3])
end.

Примеры
Введите 4-х значное число 3528
16

Введите 4-х значное число 1639
12

№2

begin
  var n:=ReadInteger('Введите 5-и значное число');
  var s:=Abs(n).ToString;
  if s[3]<s[5] then Swap(s[1],s[5])
  else Swap(s[2],s[4]);
  Writeln(s)
end.

Примеры
Введите 5-и значное число 15382
18352

Введите 5-и значное число 13042
23041