Results 1 to 5 of 5
Thread: Pascal
Hybrid View
-
22nd April 2015 12:20 #1
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
-
22nd April 2015 12:32 #2
? ? - ?
Have no fear ike iz here.
CPU Cx486DLC@40MHz, RAM 4MB, VGA Trident 512KB, HDD Conner 160MB, Monitor 14" Color
-
22nd April 2015 13:13 #3
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
-
22nd April 2015 14:30 #4
-
22nd April 2015 16:13 #5Registered User
Join Date: Jan:2014
Location: somewhere
Posts: 48




Reply With Quote

Lenovo ThinkPad 15 IdeaPad 15
5th May 2023, 22:16 in