Уважаемые программисты, помогите пожалуйста оптимизировать программы (их две), и улучшить ее стиль (работают ли они вообще?). Задали в колледже, а я полный 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.
Админ: Пользуемся тегами для оформления кода!