Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Конкатенировать файлы https://www.cyberforum.ru/ turbo-pascal/ thread609874.html
Даны два файла f1: "знак" и f2: "генератор". Конкатенировать файла f1 и f2 через букву "о", записав результат в f1. Вывести f1 на экран.
Графика. Кит Turbo Pascal
С координатами плохо...
Определить количество отрицательных элементов в массиве Turbo Pascal
2)В массиве A, состоящем из N целых чисел определить количество отрицательных элементов. вот еще такие задачки, помогите пожалуйста (
Turbo Pascal Определить количество элементов, кратных заданному числу 3)В массиве A, состоящем из N целых чисел определить количество элементов, кратных заданному числу. вот еще такие задачки, помогите пожалуйста ( https://www.cyberforum.ru/ turbo-pascal/ thread609806.html
Turbo Pascal В массиве А определить минимальный элемент https://www.cyberforum.ru/ turbo-pascal/ thread609798.html
1)В массиве A, состоящем из 10 целых чисел определить минимальный элемент. вот еще такие задачки, помогите пожалуйста (
Turbo Pascal Найти все числа в последовательности, последняя цифра которых кратна 5
1)Найти все числа в последовательности , последняя цифра которых кратна 5. помогите решить пожалуйста вот эти еще (
Turbo Pascal Записи. Имеется ли пассажир, багаж которого превышает багаж остальных пассажиров по количеству вещей и по весу
помогите сделать задачи на паскале: 1)Задача по записям: Багаж пассажира хар-ся кол-вом вещей и весом вещей. Пусть дан массив, содержащий информацию о багаже нескольких пассажиров. Выяснить...
Turbo Pascal Найти значение z Найти значение z, если https://www.cyberforum.ru/ turbo-pascal/ thread609774.html
Turbo Pascal Найти сумму отрицательных элементов в каждом столбце матрицы А https://www.cyberforum.ru/ turbo-pascal/ thread609755.html
Реализовать в виде модуля набор подпрограмм для выполнения следующих операций над матрицами: 1. Найти сумму отрицательных элементов в каждом столбце матрицы А 2. Определить столбец с минимальным...
Turbo Pascal Дана вещественная матрица 5х4, которая находится в текстовом файле Дана вещественная матрица 5х4, которая находится в текстовом файле. Найти максимальный элемент в каждом столбце и сформировать из этих элементов вектор B. Если все полученные максимальные элементы... https://www.cyberforum.ru/ turbo-pascal/ thread609735.html
Фрилансер
3411 / 2808 / 3000
Регистрация: 08.02.2012
Сообщений: 7,957
Записей в блоге: 1
20.06.2012, 09:43 0

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

20.06.2012, 09:43. Просмотров 1097. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
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.


Вернуться к обсуждению:
Определить, является ли второе число перевертышем первого
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.06.2012, 09:43

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Является ли второе число делителем первого
Решите пожалуйста задачу!!!Делфи. Определить является ли второе число делителем первого.

Определить, является ли заданное четырехзначное число перевертышем
Определить является ли заданное четырехзначное число перевертышем(Например 1234 и 4321)

Определить, является ли число перевертышем с учетом четырех цифр
Здравствуйте уважаемые форумчане! Помогите пожалуйста решить в VBA. Дано натуральное число N...

Определить, является ли второе дерево поддеревом первого
Заданы два дерева с помощью цепных списков. *Определить, является ли второе дерево поддеревом...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.