|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
27.05.2009, 19:28 | #1 |
Новичок
Джуниор
Регистрация: 27.05.2009
Сообщений: 2
|
Уважаемые программисты нужно как можно скорее исправить задачу по Паскалю
Вот условие: Найти все 5-ти значные числа палиндромы(например 11111,4774)
Вот задача: Program palindrom; var i,val,m,k: integer; s: string; begin val:=10000; while val<>99999 do begin str(val,s); m:=length(s)div 2; for i:=1 to m do if s[i]=s[length(s)-i+1] then k:=k+1; if (k=m) then writeln('palindrom'); writeln(val); val:=val+1; end; end. И можете записать это: m:=length(s)div 2; for i:=1 to m do if s[i]=s[length(s)-i+1] then k:=k+1; if (k=m) then writeln('palindrom'); Через процедуру или функцию? |
29.05.2009, 20:01 | #2 |
Новичок
Джуниор
Регистрация: 29.05.2009
Сообщений: 1
|
Program palindrom;
function f(s: string):boolean; var i, m, k: integer; begin m:=length(s)div 2; for i:=1 to m do if s[i]=s[length(s)-i+1] then k:=k+1; if (k=m) then begin writeln('palindrom'); result:= true; end else result:= false; end; var val: integer; s: string; begin val:=10000; while val<>99999 do begin str(val,s); if f(s) then writeln(val); val:=val+1; end; end. может так? |
29.05.2009, 20:12 | #3 |
Форумчанин
Регистрация: 19.02.2009
Сообщений: 622
|
Вот еще вариант:
Код:
Жми на весы!!!
Последний раз редактировалось Chudo4258; 29.05.2009 в 20:29. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
помогите пожалуйста решить задачу по паскалю. очень нужно! | Лиля-16 | Помощь студентам | 4 | 14.05.2009 23:01 |
Уважаемые программисты помогите пожалуйста | Paul_AG | Общие вопросы C/C++ | 10 | 28.03.2009 21:56 |
Уважаемые программисты, помогите... | ЕлЕнОчкА | Паскаль, Turbo Pascal, PascalABC.NET | 16 | 04.12.2008 20:34 |
Уважаемые программисты! | Дашусик | Помощь студентам | 8 | 31.05.2008 19:29 |