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
@inet Áëàãîäàðÿ òè çà ïîìîùòà, ñïàñÿâàø ìè æèâîòà!
Arbeit macht frei
-
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 Ìîáèëíè êîìïþòðè