Results 1 to 5 of 5

Thread: Pascal

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 |