Pereiti prie turinio

Eva33

Nariai
  • Pranešimai

    11
  • Užsiregistravo

  • Lankėsi

  • Atsiliepimai

    0%

Apie Eva33

  • Rangas
    Naujas veidas forume

Paskutiniai lankytojai

Paskutinių lankytojų blokas yra išjungtas ir nėra rodomas kitiems nariams.

  1. :D :D geras klausimas O reikia progos, kad Paskaliu programuot? :D
  2. Sveiki, gal galit padėti, meta klaidą "Blogas skaičiaus formatas". program manksta; Type Duomenys = record pavadinimas : string; kartai : integer; end; var d: array [1..100] of Duomenys; n,i: integer; procedure nuskaitymas; var myfile: text; i,n: integer; begin i:=1; assign(myfile,'u2.txt'); reset(myfile); Readln (myfile, n); for i:= 1 to n do begin ReadLn (myfile, d[n].pavadinimas, d[n].kartai); end; Close (myfile); end; begin nuskaitymas; Readln; end.
  3. https://drive.google.com/open?id=0B7IsDJze3VhfWm4yZ2cyYmtHbEk sita uzduotis, kazkodel neleidžia man jos prisegti.
  4. Sveiki kas galėtų padėti padaryti užduotį su datos funkcija?
  5. Sveiki, gal kas nors galėtų padėti baigti rašyti programą, niekaip nesigauna :((( viscicukai.rar
  6. Taip, būtent apie mokyklinį, lauksiu informacijos ar kontaktų... iš anksto dėkoju!!!
  7. tame esmė, kad nerodo klaidos, bet ir nekompiliuoja ir nevykdo, žodžiu nereaguoja visai :)
  8. padėkite surasti klaidą, neveikia procedūra. program Bevarde11; var m,n,k:integer; procedure mano (k,n,m:integer; var a,x,p,y:integer); begin k:=0; a:=n; while a<m do begin a:=a+1; x:=a mod 10; p:=(a div 10) mod 10; y:=a div 100; if a=x*100+p*10+y then k:=k+1; end; begin writeln('Įveskite skaičių m: '); readln(n); writeln('Įveskite skaičių n: '); readln(m); writeln; mano (k,n,m,a,x,p,y ); writeln; writeln('Laimėjusių kiekis: ', k); Readln; end.
×
×
  • Pasirinkite naujai kuriamo turinio tipą...