Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 25.04.2010, 11:49   #1
valerka92
Форумчанин
 
Регистрация: 24.04.2010
Сообщений: 179
По умолчанию PASCAl ! Найти палиндромом(то есть его запись читается одинаково слева направо и справа на лево )

Описать функцию IsSquare(K) , возращающее true ,
Если целый параметр N (>0) является палиндромом(то есть его запись читается одинаково слева направо и справа на лево )
и false в противном случае . С ее помощью найти количество палиндромов в наборе из 10 целых положительных цифр
NADO IZUCHIT C++
valerka92 вне форума Ответить с цитированием
Старый 25.04.2010, 11:56   #2
Филантроп
Форумчанин
 
Аватар для Филантроп
 
Регистрация: 12.04.2010
Сообщений: 134
По умолчанию

Код:
var a,i:integer;
c:integer;
function Pal(n:integer):boolean;
var m,p:integer;
    i:integer;
begin
m:=n;
p:=0;
while m<>0 do
  begin
    i:=m mod 10;
    p:=p*10+i;
    m:=m div 10;
  end;
if p=n then Pal:=true
else Pal:=false;
end;
begin
c:=0;
for i:=1 to 10 do begin
readln(a);if pal(a) then c:=c+1;end;
writeln('count=',c);
readln;
end.
кому нужна помощь! жду в аське и скайпе!

Последний раз редактировалось Филантроп; 25.04.2010 в 12:00.
Филантроп вне форума Ответить с цитированием
Старый 25.04.2010, 12:07   #3
valerka92
Форумчанин
 
Регистрация: 24.04.2010
Сообщений: 179
По умолчанию

Спасибо ! !! !! ! ! ! !
NADO IZUCHIT C++
valerka92 вне форума Ответить с цитированием
Старый 25.04.2010, 12:12   #4
russian-stalker
Участник клубаДжуниор
 
Аватар для russian-stalker
 
Регистрация: 23.08.2008
Сообщений: 1,616
По умолчанию

Я делал так:
Код:
function isSquare(k:integer):boolean;
var
 s,l:string;
 i:integer;
begin
 str(k,s);
 for i:=1 to length(s) do
  l:=s[i]+l;
 isSquare:=s=l;
end;


var
 i,k:integer;
begin
  for i:=1 to 10 do
  begin
   readln(k);
   writeln(k,':',isSquare(k));
  end;
  readln;
end.
pushl $0x18E3DF6B
call ICQ
russian-stalker вне форума Ответить с цитированием
Старый 25.04.2010, 12:23   #5
valerka92
Форумчанин
 
Регистрация: 24.04.2010
Сообщений: 179
По умолчанию

спасибо !!!
NADO IZUCHIT C++
valerka92 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Отступы границ сайта слева и справа slaxik HTML и CSS 4 31.01.2010 11:45
поменять элементы каждого числа массива слева направо elenSV Общие вопросы C/C++ 1 15.06.2009 21:10
поменять элементы каждого числа массива слева направо elenSV Общие вопросы C/C++ 4 24.05.2009 10:41
поменять элементы каждого числа массива слева направо elenSV Помощь студентам 11 10.05.2009 17:00
Найти числа,которые читаются слева-направо и справа-налево одинаково(например, 1001). Паскаль NikLik Помощь студентам 8 22.11.2007 23:00