Reikia pagalbos su pascal!

Gavau uzduoti ir nemoku jos isspresti. Uzduotis

Zinau kad uzduotis nera sunki, tiesiog nemoku naudotis pascaliu, gal kas galetumete pagelbeti?

Gavau uzduoti ir nemoku jos isspresti. Uzduotis

Zinau kad uzduotis nera sunki, tiesiog nemoku naudotis pascaliu, gal kas galetumete pagelbeti?

ir nori, kad kiti už tave parašytų ? jeigu taip reikia galėtum pasidomėti kas tas pascal ir pnš, tikrai parašytum, negi taip sunku leisti cikla nuo 1000 iki 9999 ir su if patikrintu ar dalijasi, parašyčiau tą programą, tik jau pamiršau siktaksę, manau, jeigu ne tik uždavinį idėtum, o ir pradžią kokią nors, daug greičiau sulautum pagalbos :)

Siūlau nemokamai nepadėti šitam kolegai, kadangi jau buvo prašęs pagalbos ir, kai buvo padėta - nei padėkojo, nei ką.

akivaizdu, kad jis ne vienas toks, kuris čia užsiregistravo vien dėl to, kad imestų užduotį ir kažkas už jį padarytų, nes patys tingi ir galvoja lengvai prasisuks

nu man siandienai butinai reikia atlikti ja ir taip durnas esu nei bum bum man apie ta informatika, todel ir prasau jusu pagalbos, jus kelis metus dirbantys su ivairiausiomis programomis per kelias min galit isprest sia uzduoti o as niekaip jos neispresiu per diena.

nu man siandienai butinai reikia atlikti ja ir taip durnas esu nei bum bum man apie ta informatika, todel ir prasau jusu pagalbos, jus kelis metus dirbantys su ivairiausiomis programomis per kelias min galit isprest sia uzduoti o as niekaip jos neispresiu per diena.

o paskui reikes ir dabo ieskoti uz tave ir dirbti uz tave? pats laikas paciam pradet problemas sprest, o ne ieskot kas kitas jas ispres. 20Lt ir padarau :D

aš už 15 padarysiu :D

Čai yyyzi, už 10lt padarau :D

padaryčiau nemokamai bet paskalio nemoku, tik c++, tai reiktų paskalio sintaksės ieškot :D

9lt :D

8

Čai yyyzi, už 10lt padarau :D

padaryčiau nemokamai bet paskalio nemoku, tik c++, tai reiktų paskalio sintaksės ieškot :D

c++ irgi tinka :)

c++ irgi tinka :)

Tada sori bičai, nebeuždirbsit savo 5lt. :D Tuoj numesiu į PM sprendimą.

Tada sori bičai, nebeuždirbsit savo 5lt. :D Tuoj numesiu į PM sprendimą.

dekui tau ziauriai :)

dekui tau ziauriai :)

pasitinrkink inbox - lyg ir nusiunčiau, pasitikrink ar gerai veikia

var i:integer;

rezultatas:integer;

begin

for i:= 1000 to 9999 do

rezultatas:= i div 3;

writeln(rezultatas);

readln;

Readln;

end.

ar tai galetu buti teisinga formule naudojant pascal?

var i:integer;

rezultatas:integer;

begin

for i:= 1000 to 9999 do

rezultatas:= i div 3;

writeln(rezultatas);

readln;

Readln;

end.

 

ar tai galetu buti teisinga formule naudojant pascal?

kam tų readln tiek daug?

taip pat parašyta, kad neišvest rezultato, tai writeln neturi būt

taip pat pas tave for cikle nėra pridedamas vienetas prie integer'io i, tai ciklas tęsis amžinai. Padaryk cikle, kad kaskart pridėtų po 1 prie i.

kam tų readln tiek daug?

taip pat parašyta, kad neišvest rezultato, tai writeln neturi būt

taip pat pas tave for cikle nėra pridedamas vienetas prie integer'io i, tai ciklas tęsis amžinai. Padaryk cikle, kad kaskart pridėtų po 1 prie i.

Kelių readln prireikia fpc naudojantis kiek atsimenu iš praktikos.

Dėl išvedimo tai turima omeny nenaudot crt modulio, o ne neišvest į konsolę.

Mašai c ciklą su paskalio, veiks teisingai, pridėjus i+1 iteruosi per kas antrą i.

var i:integer;

rezultatas:integer;

begin

for i:= 1000 to 9999 do

rezultatas:= i div 3;

writeln(rezultatas);

readln;

Readln;

end.

 

ar tai galetu buti teisinga formule naudojant pascal?

Neteisinga. Pagal sąlygą, turi skaičiaus skaitmenis sudėt ir juos tikrint ar dalijasi iš trijų.

var i, n, sum, rezultatas:integer;
begin
   for i := 1000 to 9999 do begin
       sum := 0;
       n := i;
       while (n > 0) do begin
           sum += n mod 10;
           n := n div 10;
       end;
       if ((sum mod 3) = 0) then begin
           rezultatas := i;
           writeln(rezultatas);
       end;
   end;
end.