[Or]

נכתב במקור על ידי רותם

סליחה על הדאבל.

אני לא מצליח מישו מה לפתור את שאלה 7... אם מישהו יכול למצוא את הטעות שלי בקוד שאני יציג לפניכם יבורך כי פשוט אין לי מושג מה לא עשיתי טוב.

השאלה:
http://www.2send.us/picture.php?file=3294d99137.JPG

התשובה שלי לשאלה:
http://www.2send.us/uploads/57d9fcab60.txt

מקווה שתעזרו .

program tar_7
var
i,a,b,c : integer;
tzover_1,tzover_2 :integer;
begin
tzover_1:=0;
tzover_2:=0;
for i:= 1 to 68 do 
begin
writeln('hahnes kita shel talmid - 1\2');
readln(c);
writeln('hahnes mispar ssolelot');
readln(a);
writeln('hahnes mispar bakbookim');
readln(b);
if c=2 then
tzover_2:= tzover_2+ (a*7)+(b*3)
else
tzover_1:= tzover_1+ (a*7)+(b*3);
end;
if tzover_2>tzover_1 then 
writeln('kita 2 nitzha');
 if tzover_1>tzover_2 then 
writeln('kita 1 nitzha');
if tzover_2=tzover_1 then 
writeln(' teiko');
end.