Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.61/18: Рейтинг темы: голосов - 18, средняя оценка - 4.61
damir.93dj
1 / 1 / 0
Регистрация: 24.11.2010
Сообщений: 7
1

Даны 2 натуральных числа выяснить является ли хоть одно из них палиндромом (перевёртышем)

25.11.2010, 23:33. Просмотров 3366. Ответов 4
Метки нет (Все метки)

Даны 2 натуральных числа выяснить является ли хоть одно из них палиндромом(перевёртышем) тоесть таким числом десятичная запись которого читается одинаково слева на право и справо на лево.(определить функции позволяющие распозновать числа палиндромы. Очень прошу вас сделайте пожалуйста)))
1
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.11.2010, 23:33
Ответы с готовыми решениями:

Даны два натуральных числа. Выяснить, в каком из них сумма цифр больше
Даны два натуральных числа. Выяснить, в каком из них сумма цифр больше.(сумма...

Даны три произвольных числа, проверить, является ли хотя бы одно из этих чисел квадратом целого числа
Даны три произвольных числа A,B,C. Если хотя бы одно из этих чисел является...

Выяснить является ли заданная строка палиндромом
Дело в том, что в 10 классе мы проходим Паскаль поверхностно, поэтому надо...

Выяснить, является ли данное трехзначное число палиндромом
Дано трехзначное число. Выяснить, является ли оно...

Даны три действительных числа. Выбрать из них те, которые принадлежат интервалу (1,3) и найти большее из них
Даны три действительных числа. Выбрать из них те, которые принадлежат интервалу...

4
MafiaWest
99 / 98 / 32
Регистрация: 24.04.2010
Сообщений: 284
Записей в блоге: 1
25.11.2010, 23:39 2
Написать комментарии к программе. (всего к 5-ти с)

Здесь та же задача,только для слов....необходимо вам немножко изменить ее и все
1
Puporev
Модератор
54711 / 42119 / 29083
Регистрация: 18.05.2008
Сообщений: 99,407
26.11.2010, 10:13 3
Лучший ответ Сообщение было отмечено как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
uses crt;
function Palindrom(n:longint):boolean;
var m,p:longint;
    i,k:integer;
begin
m:=n;
p:=0;
while m>0 do
  begin
    i:=m mod 10;
    p:=p*10+i;
    m:=m div 10;
  end;
Palindrom:=p=n;
end;
var a,b:longint;
    f:boolean;
begin
clrscr;
writeln('Введите 2 натуральных числа');
readln(a,b);
f:=Palindrom(a) or Palindrom(b);
if f then write('Хотя бы 1 число палиндром')
else write('Оба числа не палиндромы');
readln
end.
3
damir.93dj
1 / 1 / 0
Регистрация: 24.11.2010
Сообщений: 7
27.11.2010, 12:56  [ТС] 4
как решитьна процедуры функции

Даны 2 натуральных числа выяснить является ли хоть одно из них палиндромом(перевёртышем) тоесть таким числом десятичная запись которого читается одинаково слева на право и справо на лево.(определить функции позволяющие распозновать числа палиндромы. Очень прошу вас сделайте пожалуйста)))???

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
program sly;                                                                                    
uses crt;                              
var s:string;                                                                                      
k,i,n:integer;                                                                
fl:boolean;                                                                   
begin                                                                                             
clrscr;                                   
readln (s);                                                                                        
n:=length(s);                                                                 
fl:=true;                                                                     
for i:=1 to n div 2 do                                                        
if s[i]<>s[n-i+1] then fl:=false;                                             
if fl then writeln ('polidrom')                                               
else writeln ('Ne polidrom');                                                 
readln;                                   
end.
???
0
Dekio
Фрилансер
Эксперт С++
5838 / 1219 / 499
Регистрация: 23.11.2010
Сообщений: 3,377
Записей в блоге: 1
27.11.2010, 13:07 5
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program sly; 
var s:string;
fl :boolean;
procedure pal(s:string; var fl:boolean);
var
k,i,n:integer;
begin 
n:=length(s); 
for i:=1 to n div 2 do 
if s[i]<>s[n-i+1] then fl:=false;
end;
begin
fl:=true;
readln (s);
pal(s,fl);
if fl then writeln ('polidrom') 
else writeln ('Ne polidrom'); 
end.
1
27.11.2010, 13:07
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.11.2010, 13:07

Найти в массиве натуральных чисел все группы элементов, сумма цифр (элементов) которых является палиндромом
1. Найти в строке самое маленькое по количест-ву слов множество, в словах...

Даны три двухзначных числа подсчитать числа являющиеся квадратами натуральных чисел
Даны три двухзначных натуральных числа. Подсчитать среди них количество чисел,...

Даны два натуральных числа
Составить программу на языке Pascal, используя процедуру или функцию. Даны два...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

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