ציטוט:
נכתב במקור על ידי רותם
|
קוד:
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.