Pascal

[SuperRembo]

Problema sekojosa un bistama man ritam vajag vienu sava zina niecigu mantu izdarit, bet vina ir sarezgita cik vien var un pec paldizibas nezinu vairs pie ka griesties, jo mes vel neizaugam tik talu

Karo4e pei leitas:

Vajag sastadit programu kura izvaditu 3 reizes vienu un to pasu skaitli kuru tu ievadiji PASCALA.

Ievads ir sads man uz doto bridi bet talak nezinu.

Un lieta tada cikla operatorus nevar lietot, atkartoti nevar writeln rakstit, tapec ari sis uzdevums itka niecigs ir sarezgits.

Es zinu ka vajag 1 operatoru izmantot lai panaktu velamo, bet nezinu kadu tiesi butu priecigs ka vismaz pateiktu kadu! Thx zaranjee.

Butu jabut sadi gala rezultata ievadu piem 2 un programa izdara sadi.

2

2

2

program p7;

var z:integer;

begin

readln(z);

writeln(z);

readln;

end.

Edited September 7, 2006 by SuperRembo

[snaikers]

maacijos shito pasen japameklee klade tad kautkur ir !! tu jau pienjem mainiigo z, bet kaapeec es nesaprotu !! ja godiigi vakaraa man gruuti domaajas jo jaaiet jau guleet, riit agraas stundas

[SuperRembo]

Nu noedefinet tach vajag jo es ievadu skaitli veselu, kuru 3 reizes jaizvada progai uz leju.

[Kavacky]

Program hujnja;
Uses CRT;
Var z : Integer;
Begin
   ReadLn(z);
   ClrScr;
   Write(z, #10#13, z, #10#13, z);
   ReadKey;
End.

Man pagāja aptuveni 20 sekundes, lai uzrakstītu visu no sākuma līdz beigām. Ieskaitot domāšanu.

[SuperRembo]

Nu sadas fignas der Vienkarsi sadu panemienu nava radijusi mums shulce.

[Dr. Pain]

tad turpmaak vispirms padomaa un pameklee risinaajumus netaa, vai arii nopeerc sev graamatu par pascal, nevis katreiz pie mazaakaas probleemas skrien uz shejieni un bljauj peec paliidziibas

p.s. iesaku iemaaciities domaat (tas paliidz)