Pereiti prie turinio

GVlDAS

Patvirtinti nariai
  • Pranešimai

    190
  • Užsiregistravo

  • Lankėsi

  • Atsiliepimai

    100%

GVlDAS Pranešimai

  1. Sveiki, stai programa:

     

    program pp;

    var i, n, k, s : integer;

    begin

     

    writeln('Iveskite eiliu skaiciu');

    readln(n);

    writeln('Iveskite kedziu skaiciu');

    readln(k);

     

    s := k;

    for i := 2 to n do

     

    s := k + 2;

    s := s * n;

     

    write(s);

    readln

    end.

     

    noreciau paklausti kam reikalingas s := k; pries pati cikla? Dauguma programu darant pries cikla visada reikia pasirasyti kad kazkas yra priskirta kazkam, gal galetumete kasnors issamiai paaiskinti kam tai reikalinga? Nes istrynus sia eilute programa vistiek veikia taip pat. Mokytoja kazka aiskino, bet nelabai supratau, noreciau isigilinti :)

  2. Tu savo šita programa tikrini TIK ar skaičius dalinasi iš savęs be liekanos, o tokią sąlygą tenkina visi skaičiai, todėl ir gauni visada teigiamą atsakymą.

    Tai zinau as sita :D delto ir klausiu jusu kokia dar formule reiktu taikyt kad salyga tenkintu ne tik visi skaiciai.

    pvz kad parasius skaiciu 12, rodytu kad jis nera pirminis.

  3. As suprantu ta dalyka kad skaicius dalinas TIK is saves ir is 1, bet visada gaunu teigiama atsakyma.

    program pirminis;

    var x : longint;

    begin

    writeln('Iveskite skaiciu');

    readln(x);

    if x mod x = 1 then writeln('Skaicius yra pirminis')

    else

    writeln('Skaicius nera pirminis');

    readln;

    end.

  4. Jei gerai supratau tai čia tu padaręs nuorodas:

     

    Priskirk nuorodai stilių: text-decoration:none;

     

    PVZ:

     

    <a class="none"></a>

     

    css faile:

    .none

    {

    text-decoration:none;

    }

     

    Paciuose paveiksliukuose nera bruksniu, as irgi galvojau su text decoration padaryt, bet neisejo.

     

    EDIT: radau isvada, rakinkit tema :)

  5. var val, min :integer;
    writeLn('Iveskite ka rodo laikrodis');
    readLn(val,min);
    writeln('po minutes laikrodis rodys: ', val, ' val.', min + 1, ' min.');
    

     

    taip pat buvau padares :) bet manau neteisingai

     

    program Noname0;
     var min,val:integer;
    begin
     Readln(val,min);
     if min<59 then
        min:=min+1
     else
     begin
           val:=val+1;
           min:=00;
     end;
     Writeln(val,' ',min);
       Readln;
    end.
    

     

    dekui, bet butu buve geriau kad paaiskintu kasnors o ne tiesiog sausa koda pateiktu :/

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