Определить, является ли второе число перевертышем первого

@nero08 · Регистрация: 25.02.2012

Пожалуйста помогите решить. только напиши полностью всю программ
1. Даны два натуральных числа. Проверить, является ли второе число перевертышем первого.

@CodeR · 20.06.2012, 09:43

Pascal

Var n,m:integer;
Function Perev(n,m:integer):boolean;
Var i,j:integer;
    b:boolean;
    s1,s2:string;
Begin
    Str(n,s1);Str(m,s2);b:=true;
    i:=0;j:=Length(s2);
    While (i<Length(s1))and(b) do
     Begin
      inc(i);
      if s1[i]<>s2[j] then b:=false;
      dec(j);
     End;
    Perev:=b;
End;
Begin
    write('Введите первое число: ');readln(n);
    write('Введите второе число: ');readln(m);
    if Perev(n,m) then writeln('Yes') else writeln('No');
    readln;
End.

@nero08 0 / 0 / 0 Регистрация: 25.02.2012 Сообщений: 10
		1
	Определить, является ли второе число перевертышем первого 20.06.2012, 09:09. Просмотров 1062. Ответов 1 Метки нет (Все метки) Пожалуйста помогите решить. только напиши полностью всю программ 1. Даны два натуральных числа. Проверить, является ли второе число перевертышем первого. 0

Опции темы

Определить, является ли второе число перевертышем первого

Решение