Informatikos uždavinys, reikia užrašyti programa

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

O tai iš mūsų kokios pagalbos reikia?

O tai iš mūsų kokios pagalbos reikia?

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ų

Įkelk ką parašęs, rasim klaidas, ištaisysim.

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

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

niekas už tave neims ir nedarys, čia paprasti uždavinukai

niekas už tave neims ir nedarys, čia paprasti uždavinukai

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

1 programa - naudok operacija mod, kad suzinotum lyginis ar ne, o priskirti reiksme manau mokesi.

2 programa - naudok cikla For i := 1 to N do, tavo atveju reikes prasukt 10 kartu.

1 programa - naudok operacija mod, kad suzinotum lyginis ar ne, o priskirti reiksme manau mokesi.

2 programa - naudok cikla For i := 1 to N do, tavo atveju reikes prasukt 10 kartu.

1 programa - naudok operacija mod, kad suzinotum lyginis ar ne, o priskirti reiksme manau mokesi.

2 programa - naudok cikla For i := 1 to N do, tavo atveju reikes prasukt 10 kartu.

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.

then k:= a * a

else k:= a * a * a;

Kam skaičiuoji kvadratą ir kūbą jei sąlyoje prašoma įvesto teigiamo arba neigiamo skaičiaus?

then k:= a * a

else k:= a * a * a;

 

Kam skaičiuoji kvadratą ir kūbą jei sąlyoje prašoma įvesto teigiamo arba neigiamo skaičiaus?

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.

Neturetu is duomenu failo tau tuos 10 skaiciu paimt ?