Pereiti prie turinio

Bafas

Nariai
  • Pranešimai

    139
  • Užsiregistravo

  • Lankėsi

  • Atsiliepimai

    0%

Bafas Pranešimai

  1. Krc yra taip... Isirasyt norejau 7 nero i laptopa su vista windausais. Baigiantis instaliuoti ismete errora ir nutrauke diegima, taip Nero man liko idiegta bet ne iki galo, ir db neduoda jos istrint, noriu instalint 8 nero tai ismeta kad aptikta senesne versija kuria reikia pasalinti, gal zinot ka daryt kad pasalint???

  2. omg ačiū žmogau bet blyn kaip angliškai viskas :)

     

    o nėra paprastesnio būdo? čia daug darbo ir reikia tureti windows 2003 ar kažką panašaus. aišku paprasčiausias būdas būtų tai nusipirkti cd-rom`ą :) bet vis dėlto, gal kas žino paprastesnį būdą?

  3. tarkim kur did funkcija, vietoj

     

    if b > s then s := b

     

    parasyk

     

    if ((b mod 2) > s) then writeln ('Nelyginis ',b) else writeln ('Lyginis ',b);

     

     

    ir daug tau is cia nereikes dalykus, tokiu kaip gale

     

    writeln (did (a) * Maz (a));

    writeln (Maz (a) + did (a));

     

    pasirasyk did(a);

     

    ir viskas, na daug prasitrynk visko :)

     

     

     

    o gal galetum pratrynt? :) nelabai as cia suprantu :)

  4. mokykloj programuojam paskalio kalba va duota programa ir reikia joje taip papildyt ar pakeist funkcijom kad skaiciuotu lyginius ir nelyginius skaitmenis, o cia skaiciuoja ivesto maziausio ir didziausio skaitmenu suma ir sandauga.

     

    program P9a;

    Uses Crt;

    function Did(a : integer) : integer;

    var s, b : integer;

    begin

    s := 0;

    while a > 0 do

    begin

    b := a mod 10;

    a := a div 10;

    if b > s then s := b

    end;

    Did := s

    end;

    function Maz(a : integer) : integer;

    var s, b : integer;

    begin

    while a > 0 do

    begin

    b := a mod 10;

    a :=a div 10;

    if b < s then s := b

    end;

    Maz := s

    end;

    var a : integer;

    begin

    Clrscr;

    Readln(a);

    writeln (did (a) * Maz (a));

    writeln (Maz (a) + did (a));

    Delay(8000);

    end.

     

    gal kas gali padet?

     

     

    na duota programa ir is jos reikia padaryti kad isvstu i ekrana is duoto skaiciaus lyginius skaitmenis ir po to nelyginius

×
×
  • Pasirinkite naujai kuriamo turinio tipą...