20-11-2004, 04:24
|
|
|
חבר מתאריך: 04.09.04
הודעות: 29
|
|
למה real?
קוד:
Program EX_11(input,output);
Var
Num:integer;
B30:integer;
B20:integer;
B10:integer;
left:integer;
Begin
writeln('Enter number of tennis balls');
readln(Num);
B30:=(Num div 30);
B20:=(Num - (B30 * 30)) div 20;
B10:=(Num - (B20 * 20) - (B30 * 30)) div 10;
writeln('Number of big boxes: ',B30);
writeln('Number of 20 balls boxes: ',B20);
writeln('Number of 10 balls boxes: ',B10);
left:=(Num mod 10); writeln('Total balls left: ',left);
End.
הנה תיקון קטן, קצת מכוער אבל אתה תבין את הרעיון, בשיטה הקודמת המשתנה השלישי מקבל את השארית מחילוק של המספר הראשוני עם 20 וזה היה אמור להיות השארית של החילוק של המספר שהושג ב20
|