Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
bilete
//fpc 3.0.0 program HelloWorld; var s:string; i,c,j:integer; procedure numar; begin j:=c+1; for i:=1 to length(s) do begin dec(j); if i=j then break; end; end; begin readln(s); c:=length(s); if length(s) mod 2=1 then numar else begin c:=c+1; numar; end; j:=j-1; writeln(j); readln; end.
run
|
edit
|
history
|
help
0
НОД не по ЕВКЛИДУ но без массивов
CON YÊU MẸ
135
Huong11a2@
Procedimientos Leer - Poblar - Mostrar
Урок 3, задача 5 Задача 1478. Урок в неделе
For4
2
practica 3 ejercicio 1
Игра НИМ