dimitriy7 BANNED Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Код:   function IsPalindrome(n: integer): integer;            var          num: array[1..6] of byte;          i,m: byte;            begin          IsPalindrome:=1;          if n<10 then exit;          m:=0;          while n<>0 do                begin                inc(m);                num[m]:=n mod 10;                n:=n div 10;                end;            for i:=1 to m do              if num[i]<>num[m-i+1] then                 begin                 IsPalindrome:=0;                 exit;                 end;          end;   var i,k,c: integer;   begin   readln(k); c:=0; for i:=1 to k do if boolean(IsPalindrome(i)) then inc(c); writeln(c); readln;   end.   Всего записей: 2946 | Зарегистр. 09-10-2008 | Отправлено: 01:16 08-01-2012

На первую страницу • к этому сообщению • к последнему сообщению

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Задачи на Pascal/Object Pascal/Free Pascal (Delphi/Lazarus)

Переход по форумам  Закладки   » Компьютеры Цифровое изображение Программы Microsoft Windows UNIX Другие OS Hardware В помощь сисадмину Прикладное программирование Игры Форумные игры   » Интернет Web-программирование В помощь вебмастеру Графика Хостинг Зацените-ка!   » Тематические Ikonboard v.2 Ikonboard v.3 Invision Board Другие форумы PHP-Nuke и другие порталы Мобила   » Общие Спорт Флейм Темы по региональным встречам Музыка и Кино Юмор Литература и Живопись   » Ru.Board Новости Помощь по форуму   » Андеграунд eBookz Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование