Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
janja - naloga 1 - 25.1.2012
//fpc 2.6.2 // naloga 1 - 25.1.2012 program naloga1; uses SysUtils; // knjiznica, ki vsebuje metodo IntToStr - metoda spremeni stevilo v niz // deklaracija variabel var stevec, dolzina, ostanek: integer; niz, prvi_znak, zadnji_znak: String; begin stevec := 0; // na začetku nastavim variable na 0 niz := ''; // tako dolgo berem niz, dokler uporabnik ne vpiše 'konec' while (niz <> 'konec') do begin readln(niz); // berem vnos writeln(niz); // izpišem vnos dolzina := length(niz); // z length funkcijo dobim dolzino niza ostanek := dolzina mod 2; // z mod funkcijo delim dolzino z stevilom 2, rezultat pa je ostanek -- če je ostanek 1 potem je število liho prvi_znak := Copy(niz,1,1); // dobim prvi znak niza zadnji_znak := Copy(niz,dolzina,1); // dobim zadnji znak niza-- se pravi če imam niz 'sonce' je dolzina 5, potem dela copy('sonce',5,1) -- začne od 5 znaka in vzame 1 znak if ((ostanek = 1) and (prvi_znak = zadnji_znak)) then // če je liho in če sta znaka ista begin stevec := stevec + 1; // povečam števec end; end; writeln('Stevilo besed, ki imajo liho dolzino ter prvo in zadnjo crko enako: '+IntToStr(stevec)); end.
run
|
edit
|
history
|
help
0
arreglo suma1
practica 9 ejercicio 9 BETA
aqzde
Llenar un arreglo (con for)
Union of set with array of elements
Douane fini
Test
Random Numbers
fgh
pi