Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
bilete
//fpc 3.0.0 program HelloWorld; var s,s1,s2:string; i,c,j,x1,x2,kod,k1,k2:integer; procedure numar; begin j:=c+1; for i:=1 to length(s) do begin dec(j); if i=j then break; end; j:=j-1; if length(s) mod 2=1 then delete(s,j+1,1); s1:=copy(s,1,j); s2:=''; for i:=length(s) downto (length(s)-j+1) do s2:=s2+s[i]; val(s1,x1,kod); val(s2,x2,kod); end; function sravnenie(a:integer):integer; var b,e,f:integer; begin b:=a; f:=0; while a<>0 do begin e:=a mod 10; a:=a mod 10; f:=f+e; end; sravnenie:=f; a:=b; end; begin readln(s); c:=length(s); if length(s) mod 2=1 then numar else begin c:=c+1; numar; end; while j<>0 do begin k1:=sravnenie(x1); k2:=sravnenie(x2); if k1=k2 then writeln('nice' ) else x1:=x1 div 10; x2:=x2 div 10; dec(j); end; writeln(x1,' ',x2); readln; end.
run
|
edit
|
history
|
help
0
http://rextester.com/UVQV94798
practica 5 ejercicio 1
programme 1
Урок 3 задача 1 (1484) повышенная сложность.
practica 6 ejercicio 2
444555666
Ipis unazad ulancana lista
task 3
TimeDemo
2