Pradinis
Pagalba
Užsisakyk!
- Reklamą
- Hostingą
- El. pašto dėžutę
Užsisakyk!
Įrankiai
Pasidalink
- Visos temos
Forumas | PHP-Fusion, WordPress, Shopify, PHP ir MySQL (PROGRAMAVIMAS) | C#, Python, Java, JS, C++ klausimai |
Autorius: mindis369 | Peržiūrų: 2235 |
mindis369 Narys Patrankų mėsa Pranešimai: 5 Įstojęs: 2010 Lap. 9 22:11:13 | |
Uzduotis is 15 skaiciu duotu duomenu faile surasti kurie yra lyginio skaiciaus kvadratai. Kiek as suprantu reikia issitraukt sakni tada dalint is dvieju ir ziuret ar gaunasi 0. bet mane stabdo uzrasas '' Incompatible types: got S80REAL expected LONGINT. uzdedu ta longint prie prasomo kintamojo vistiek meta tapacia klaida:/ ar as cia rasau programa blogai ar mod labai pjaunasi cia ar dar kazkas prasau apdeti program Bevardë18; var fd : text; s : integer; a : longint; k,b : real; begin s:=0; Assign (fd, 'duomenys.txt'); Reset (fd); While not Eof (fd) do begin Read (fd, a); k := sqrt(a); b := k mod 2; if b = 0 then s:=s+1 else s:=s; writeln (s); end; Close (fd); end. |
weberiz Narys Terminatorius Pranešimai: 1312 Įstojęs: 2008 Bal. 26 12:04:26 | |
fd : text; nemanai kad gal but kad pjaunas del to kad tai stringas o puskui i inegeri tau reik http://www.freepascal.org/docs-h...toint.html šita padaryt? 0 |
Peršokti į forumą: |