unbanlt

Neisizaiduoju, gerai meginsiu koreguot programa 2Uzduoti tai va padariau kazka. Galetumete patikrinti ir pataisyti. program kvkb; var suma, x, i, n : integer; Begin suma := 0; WriteLn('Įveskite, kiek iš viso bus skaičių: '); ReadLn(n); For i := 1 to n do begin WriteLn('Įveskite ', i,'-ąjį skaičių: '); ReadLn(x); suma := suma + x; end; WriteLn('Įvestųjų skaičių suma yra ', suma); ReadLn; end.

Imečiau savo 1 uždavinio sprendima, nežinau ar teisingai, nes neseniai pradejau ta programavima, gal kas galetu paziuret kaip man sekesi program kvkb; var k, a : integer; begin WriteLn('įveskite skaičių'); Readln(a); if a mod 2 = 1 then k:= a * a else k:= a * a * a; WriteLn('rezultatas', k); Readln; end.

žinau, bet gal kas galetų užvesti ant kelio arba paaiškinti, kokį tuturial numesti

Esu išvykes ilgam laikui ir sedžiu ne prie savo kompiuterio, todėl nėra galimybės ikelti savo programos

Kad padėtumėte parašyti šitas programas, nes pats parašęs bet kažkur klaidą darau ir nesuprantu kur... tai sakau gal kas pagelbetų

1.Parašyti programa, kurio kintamajam k būtų priskiriama kintamojo x reikšmė, jei skaičius x nelyginis arba neigiama x reikšmė, jei skaičius x lyginis. 2. Duoti pradiniai duomenys - 10 skaičių. Parašyti programą,kuri susumuotų šiuos skaičius