Определить, является ли число перевертышем с учетом четырех цифр

@so_kissola · Регистрация: 23.12.2015

Author24 — интернет-сервис помощи студентам

Здравствуйте уважаемые форумчане! Помогите пожалуйста решить в VBA.

Дано натуральное число N (N<10000). Определить, является ли это число перевертышем с учетом четырех цифр. Например, такими числами являются 2222, 1661, 0440.

В сети нашла решение на языке Pascal(не могу перевести в VBA):

Pascal

program prim3;
  uses crt;
  var n, m, a, i: integer;
begin
  clrscr;
{Введем четырехзначное целое число.}
  writeln('N<=9999'); readln(n)
{Запоминаем введенное целое число и задаем начальное значение перевертыша.}
  m:=n;а:=0;
{Организуем цикл с параметром от 1 до 4.}
  for i:=l to 4 do
{Находим перевертыш числа N}
    begin
      а:=а*10+ m mod 10; m:= m div 10;
    end;
{Если A=N, то данное число является перевертышем.}
  if a=n then writeln('DA!')
  else writeln('NO');
  readln;
end.

~~Shersh~~ · 23.12.2015, 07:32

Visual Basic

1
2
3

function IsChangeling(N)
IsChangeling=N=strreverse(N)
end function

@Казанский · 23.12.2015, 13:55

Shersh,

Сообщение от so_kissola

Например, такими числами являются 2222, 1661, 0440

Visual Basic

Function IsChangeling(N)
Dim s: s = Format(N, "0000")
IsChangeling = s = StrReverse(s)
End Function

	23.12.2015, 13:55