Results 1 to 5 of 5

Hybrid View

Previous Post Previous Post   Next Post Next Post
  1. #1
    SS sturmfuhrer SS shifta's Avatar
    Join Date: Jan:2011
    Location: sofia
    Posts: 106

    Çàäà÷à íà Pascal

    Çäðàâåéòå, èìàì çà çàäà÷à äà íàïðàâÿ íÿêîëêî ïðîãðàìè íà Pascal, íî åäíà ìå çàòðóäíÿâà è ìîëÿ çà ïîìîù.

    Çàäà÷à: Äà ñå îïðåäåëè îáùèÿ áðîé íà ÷èñëàòà, êîèòî ñå äåëÿò íà ÷åòåí äåëèòåë <10 è êîëêî îò òÿõ ñà â çàäàäåí îò êëàâèàòóðàòà èíòåðâàë.

    Äî òóêà ñúì íàïðàâèë:
    var
    A,B,J,K:integer;

    begin
    write ( ' vuvedete dolniq interval: ' ) ;
    readln ( A ) ;
    write ( ' vuvedete gorniq interval: ' ) ;
    readln ( B ) ;
    J := A;
    K := 0;
    repeat
    if J mod 24 = 0 then K := K + 1 ;
    until
    K=A;
    writeln ('broqt na chislata delqshti se na prosti chisla e=: ' , K) ;
    readln ;
    end.

    Èäåÿòà ìè å ÷èñëàòà â èíòåðâàëà äà ñå äåëÿò íà 24 (ñàìî 24 ñå äåëè åäíîâðåìåííî íà 2, 4, 6 è 8) è áðîÿò äà ñå çàïàìåòÿâà â Ê.
    Arbeit macht frei

  2. #2
    Registered abUser ike's Avatar
    Join Date: Jul:2004
    Location: sofiÿ
    Posts: 4,965
    Å? Íå ðàáîòè ëè ïðîãðàìàòà? Êúäå ïî-òî÷íî íå ðàáîòè?
    Have no fear ike iz here.
    CPU Cx486DLC@40MHz, RAM 4MB, VGA Trident 512KB, HDD Conner 160MB, Monitor 14" Color

  3. #3
    Registered User ined's Avatar
    Join Date: Nov:2006
    Location: Varna
    Posts: 1,078
    Íèêúäå íå óâåëè÷àâàø J è/èëè ïúê ãî ñðàâíÿâàø ñ B.

    Code:
    var
    A,B,J,K:integer;
    
    begin
       write ( ' vuvedete dolniq interval: ' ) ;
       readln ( A ) ;
       write ( ' vuvedete gorniq interval: ' ) ;
       readln ( B ) ;
       J := A + (A mod 2);
       K := 0;
       while J<=B do begin
          if J mod 24 = 0 then inc(K);
          inc(J, 2);
       end;
       writeln ('broqt na chislata delqshti se na prosti chisla e=: ' , K) ;
       readln ;
    end.
    ASRock B85 Pro4, Pentium G3240, DD3 8GB/1333MHz, 120GB SSD + 1TB + 640GB HDD
    Gigabyte GV-R657OC-1GI, CM B500, ASUS 24B1S1, LCD SAMSUNG SM931BW, ÌÅ173Õ

  4. #4
    SS sturmfuhrer SS shifta's Avatar
    Join Date: Jan:2011
    Location: sofia
    Posts: 106
    @inet Áëàãîäàðÿ òè çà ïîìîùòà, ñïàñÿâàø ìè æèâîòà!
    Arbeit macht frei

  5. #5
    Registered User
    Join Date: Jan:2014
    Location: somewhere
    Posts: 48
    Quote Originally Posted by shifta View Post
    @inet Áëàãîäàðÿ òè çà ïîìîùòà, ñïàñÿâàø ìè æèâîòà!
    Òî çà áåñåíå å òîÿ êîéòî å "èçìèñëèë" òîëêîâà òúïà ïðîãðàìà, òîâà äà îòêàæå ÷îâåê èçîáùî äà ïèøå êîä çà êàêâîòî è äà å.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

Copyright © 1999-2011 Õàðäóåð ÁÃ. Âúçìîæíî å ñúäúðæàíèåòî íà òàçè ñòðàíèöà äà å îáåêò íà àâòîðñêè ïðàâà.
iskamPC.com | mobility.BG | Bloody's Techblog | Êðèïòîâàëóòè è ìàéíèíã | 3D Vision Blog | Ìàãàçèí çà åëåêòðîííè öèãàðè