Navigacija

Namai Forumas PAIEŠKA ! ! Pagrindinės temos ! Nuorodų katalogas Didž. Php-F saitai Kontaktai
NAUDINGA
Straipsniai DUK Siuntimai Skriptų biblioteka Modai, dizainai Modai šiame saite D.U.K. Informacija Hostingai Domenai
Naudotojo vadovas v7 V6 ir V7 galimybių palyginimas DEMO
NUORODOS
Modifikacijos, panelės Temos/dizainai
PASLAUGOS
Reklama VIP hostingas
Pask. komentarai Administracija

Vartotojų tinkle

Prisijungusių svečių: 191
Prisijungusių narių: 0
Prisijungusių narių nėra

Registruoti nariai: 25,966
Naujausias narys: LnKnPrK1

Naujausi straipsniai

Įprasti:

Skirti naujokams:

Paskutiniai nariai

LnKnPrK1 4 savaitės
inti 6 savaitės
kileedyg13 savaitės
Reikalas19 savaitės
Kižas20 savaitės
Bruksnys21 savaitės
laleceylan5022 savaitės
minimukas23 savaitės
N-2025 savaitės
Rytis26 savaitės
DjArtas27 savaitės
WolfHammer27 savaitės
Nostesi38 savaitės
Wisedocs38 savaitės
asdasdddz41 savaitės
Paslapties K...43 savaitės
Audrius_1745 savaitės
Simbijanas57 savaitės
Karinacraft58 savaitės
Žmogus61 savaitės

Informacija:


OS: Unknown
Naršyklė: Nežinoma
IP: 216.73.216.217
Naujienų: 529
Straipsnių: 235
Temų: 52,591
Postų: 522,551
Postų pask. parą: 0
Shout'ų pask. parą: 0
P.S.C. pask. parą: 0
Nuorodų kataloge: 13

Lankomumo Statistika

Peržiūrų šiandien: 22

Iš viso peržiūrų: 22948724

Prisijungti

REGISTRUOTIS
Nario vardas

Slaptažodis



Pamiršai slaptažodį?
Paprašyk naujo
Aktyvuoti save

Šaukykla

Jei norite rašyti žinutes, turite prisijungti.

LnKnPrK1
2026 Bir. 21 09:06:52
Sveiki, gal kas is administracijos gali parasyti man PM,aciu

minimukas
2026 Vas. 21 08:02:25
oi oi akinanti šypsen yra dar cia gyvu? akinanti šypsen

N-20
2026 Vas. 6 21:02:05
O mes dar gyvi šypsosi)

WolfHammer
2026 Sau. 25 01:01:35
drovus

Žmogus
2025 Geg. 31 10:05:18
Kas geresnio? šypsosi

Šaukyklos archyvas

Apklausa

Ar esate patenkinti lietuviško vertimo kokybe?

Taip!

Taip, bet yra ką taisyti (parašysiu komentaruose)

Ne

Norėdamas balsuoti turite prisijungti.
Archyvas
Reklama 400x60
Pascal: Pascalis. saknies traukimas
Forumas | PHP-Fusion, WordPress, Shopify, PHP ir MySQL (PROGRAMAVIMAS) | C#, Python, Java, JS, C++ klausimai
Autorius: mindis369 Peržiūrų: 2574      Spausdinti temą
2012 Spa. 15 21:10:25          1 žinutė iš 2
Spausdinti pranešimą
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 nežino


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.

1 atsakymas:
2012 Spa. 15 23:10:28          2 žinutė iš 2
Spausdinti pranešimą
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? šypsosi
0
Peršokti į forumą: