Progravimas Paskaliu

Kaip parašyti programą, kuri išskaidytų triženklį skaičių skaitmenimis, o po to parodytų triženklio skaičiaus antro ir trečio skaitmenų sumas?

rankomis

Žinau, kad rankomis. Bet kaaip. :DD

As zinau kaip. :D

Programos nerasysiu bet suprask pati

skaicius := 123;

x1 := skaicius div 100;

x3 := skaicius mod 10;

suma := x1 + x3;

Suklydot kolega, "parodytų triženklio skaičiaus antro ir trečio skaitmenų sumas" :D

Tokiu atveju reikia:

x2 := skaicius div 10 mod 10;

x3 := skaicius mod 10

suma:=x2+x3

Gal galėtum visą? :D

Gal galėtum visą? :D

už pilną variantą reikia diengius mokėti :D

Tai kiek parašiau yra pati pagrindinė dalis, visą kita Jūs turėjot per pamoką parašyt į sąsiuvinį ne vieną kartą.

už 5 lt visą programą pateikčiau :)

Nu ir lupat jus , cia gi viskas pateikta.

Oho, gal galima ir užsikalt iš pascal programų rašymo 9-12 okams? :)

Oho, gal galima ir užsikalt iš pascal programų rašymo 9-12 okams? :)

Žinok galima, pats esu vienam sprendęs paskalio užduotis bei programas rasęs.

Tai kiek parašiau yra pati pagrindinė dalis, visą kita Jūs turėjot per pamoką parašyt į sąsiuvinį ne vieną kartą.

Tam kas mąsto ir moka naudoti pascal priemonėmis (ciklais, ifais ir t.t) turėtų užtekt, kad pasirašyt, o kas visai neraukia ir nemoka savarnakiškai nieko padaryt, tinka tik pilnai veikianti programa. Iš antro varianto galima drąsiai imt pinigus

Bene lengviausia, ką galima padaryti, tai nusirašyti. Žinoma, jei nesugalvoja grupėm išskirstyt (kaip kad pas mane).

ciklai, for, if. Nu čia gi visai prademenys, jei nors biški logikos yra, tai turėtum susivok kas kaip.

Ko jūs taip kankinat merginą? :)

Štai:

program Gretule;
var x, a, b, c : integer;
begin
 WriteLn('Iveskite trizenkli skaiciu: ');
 Readln(x);
 a := x div 100;
 b := x div 10 mod 10;
 c := x mod 10;
 WriteLn('Suma: ', b+c);
end.

Ačiū jums. :) ! P.s. Programuoti Paskaliu ateityje daugiau nereikės, tai nesigilinu į tokius. Gi Galima pas jus paklausti. O nusirašyti neįmanoma. Visiems skirtingos programos, net nėra panašų. Viskas apžiūrėta. : )