[udi1]

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

ובשפת C למי שעשה C...

sum=0;
count=0;
for (i=1;i<62;i++){
	if (a[i] >= 100 && a[i] <= 999) {
		sum=sum+a[i];
		if (a[i] > 248) 
			count=count+1;
	}
}

printf("%d",sum);
printf("%d",count);

בשאלה הזו, אפשר לעשות במקום השורת IF שאתם שמתם לשים :

if(a[i]/100>0)

לא?

[Ori]

שאלה 7 , א+ב פתרון בפסקלית:

function bigSums(a:integer):integer;
var sum,as,ah,I,J,k:integer;
begin
	
             ah:=a mod 10;
	as:=a div 10;
	if (ah > as) then
	begin
		I:=ah;
		J:=as;
	end
	else
	begin
		I:=as;
		J:=ah;
	end;
	sum:=0;
	For K:=J to I do
		sum:=sum+K;
	bigSums:=sum;
end;


count:=0;
For I:=1 to 23 do
begin
	if (bigSums(A) > 15) then
              count:=count+1;
end;
writeln(count);

[Interactive]

באמת הבגרות הייתה קלה...סיימתי תוך שעתיים!!..(מגישים אותי על 100)
בתיקון של תרגיל 4 עשיתי גם שכדי שהקטע יקלוט לפחות מספר חיובי אחד כתבתי:

if(num<0)
num=num*(-1);

וככה יוצא שהמספר הראשון תמיד יהיה חיובי.

[Deagly]

Ori מאיפה אתה זוכר את השאלות? :P
גנבת את השאלון ? חח

[Ori]

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

Ori מאיפה אתה זוכר את השאלות? :P
גנבת את השאלון ? חח

מה אתה אדיוט ?
מותר לקחת איתך את השאלון בסיום הבחינה.

[Alter]

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

לא עדיף להשתמש ב count++ =] ?

כן ..

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

מה אתה אדיוט ?
מותר לקחת איתך את השאלון בסיום הבחינה.

סיימת בשלוש וחצי?
כי אסור להם לתת לך אותו לפני שהזמן הארצי נגמר או משהו באיזור זמן הזה..

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

בשאלה הזו, אפשר לעשות במקום השורת IF שאתם שמתם לשים :

if(a[i]/100>0)

לא?

ואם זה מספר עם 4 ספרות?

[Ori]

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

סיימת בשלוש וחצי?
כי אסור להם לתת לך אותו לפני שהזמן הארצי נגמר או משהו באיזור זמן הזה..

הבנתי שמותר חצי שעה לפני שנגמר,
ולא זזתי משם עד שלוש ועשרים (בדקתי שוב).
מה שגם, שאלה 10 לקחה לי שעה וחצי

[udi1]

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

ואם זה מספר עם 4 ספרות?

צודק!! :-(:-(

[Interactive]

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

Ori מאיפה אתה זוכר את השאלות? :P
גנבת את השאלון ? חח

מותר לקחת תשאלון...גם אני לקחתי

[Ori]

תשע(בערך

 Const N = 10;
 Type Mar = Array&l;1..N,1..N&r; of Integer;
 function Muk(A:Mar; I,J:integer):integer;
 var sumrow,sumcol,k:integer;
 begin
 	if (A&l;I,J&r; = 0) then
 		Muk:=0
 	else
 	begin
 		sumrow:=0;
 		For K:=1 to N do
 			sumrow:=sumrow+A&l;I,K&r;;
 		sumcol:=0;
 		For K:=1 to N do
 			sumrow:=sumrow+A&l;K,J&r;;
 		if (sumrow = sumcol) then
 			Muk:=1
 		else
 			Muk:=0;
 	end;
 end;

 begin
 	count:=0;
 	For SH:=1 to N do
 	begin
 		For AM:=1 to N do
 		begin
 			if (Muk(A,SH,AM) = 1) then count:=count+1;
 		end;
 	end;
 	writeln(count);
 end.