Izveidot texta failu raksti.txt Uzrakstit programmu, kas uz ekrana attelo informaciju, kada ir dotaja txt faila!
Help. (pascal)
Edgars miniblogs
-1Edgars 03.12.2012. 14:57
-
-1
Edgars 03.12.2012. 07:31
Nu n***j Liepājā tik daudz sniega.. Paskatījos pa logu un acis sāka asiņot.
-
+3obsidian 02.12.2012. 17:33
Man visu pēdējo pusgadu laiks velkas sasodīti ātri, sajūta, ka vel vakar varēja pagulēt saulītē pēc pastrādāta darba.
-
0
Edgars 28.11.2012. 21:54
Tikko noskatijos dokumentalo filmu - "The Soviet Story".
Manuprat pati labaka filma, kuru lidz shim esmu redzejis. :o -
0
Edgars 27.11.2012. 16:12
Uzrakstit programmu, kas aprekina lietotaja ievadita skaitla ciparu skaitu, nosaka pirmo ciparu un ciparu summu. (while cikls), pascal
:o
Help (((- 0
Edgars 27.11.2012. 16:36
Program i3uuqs89f8923yr78;
var x,s,z:integer;
begin
Write(' Ievadi skaitli: ');
Readln(x);
S:=0;
While x>0 do
begin
Z:=x mod 10;
Write(z:3);
S:=s+z;
x:=x div 10;
end;
Writeln(' Ciparu summa ir: ',s);
Writeln('Pirmais skaitlis ir: ', z);
readln;
end.
Tatad esmu nonacis tik talu. Programma aprekina ciparu summu un nosaka pirmo ciparu.
Varbut kads zin, ka var noteikt ievadita skaitla ciparu skaitu? Piemeram ievadu 125 - 3 cipari, 1000 - 4 cipari 10 - 2 cipari utml!
-
0
Edgars 27.11.2012. 15:08
Programmetaji sarosas!!! (PASCAL)
Uzrakstit programmu, kas saskaita pec kartas esosos skaitlus sakot no 9. Pedejo skaitli ievada lietotajs.
For to cikls!
