|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Помогите оптимизировать и улучшить стиль программ
Уважаемые программисты, помогите пожалуйста оптимизировать программы (их две), и улучшить ее стиль (работают ли они вообще?). Задали в колледже, а я полный 0 в этом. Буду очень благодарен если мне кто-нибудь поможет!
№1 Код:
var a, b, i, x^ integer; begin readln(x); a:=x; b:=1; while a <>0 do begin b:=b*10; if a mod 10=0 then begin a:=a+9; i:=(x mod(b*10)); x:=(x mod b)+(a*(b div 10)); end; a:=a div 10; end; writeln(x); end. №2 Код:
var q,w,e,r,t:string; z,x,c,v:integer; begin readln(q); z:=length(q); c:=2; v:=1; for x:=1 to z do begin w:=copy(q,v,1); insert(w,q,c); v:=v+2; c:=v+1; end; writeln(q); end. Последний раз редактировалось Admin, 01.10.2012 в 20:24. |