1)
נערך סקר בקרב קבוצת אנשים על קבוצת הכדורגל האהודה עליהם.
פתח וישם אלגוריתם הקולט עבור כל אדם שהשתתף בסקר את שם הקבוצה שבחר.
השתמש בסימונים הבאים: M קבוצת מכבי, B קבוצת ביתר, H קבוצת הפועל.
מספר האנשים שהשתתפו בסקר אינו ידוע לכן הוחלט כי האות S, תסיים את קליטת הנתונים, התכנית תחשב ותדפיס כמה אנשים תומכים בכל אחת משלושת הקבוצות, כמו כן תודפס הקבוצה האהודה ביותר מבין משתתפי הסקר עם הודעה בהתאם.
יש לבדוק בדיקת תקינות קלט.
2)
בכיתת ספורט בביה"ס מסוים בוחרים נבחרת קפיצה לגובה אשר תייצג את בית ספר בתחרות התערך בארה"ב.
הוחלט כי : תלמיד אשר גובה קפיצתו מעל1.5 מטר יכנס לניבחרת.
קפטן הנבחרת יהיה זה אשר תוצאתו הינה התוצאה הגבוהה ביותר.
ישם אלגוריתם +פירוק הקולט את גובה קפיצתן של כל תלמיד עד אשר יקלט גובה קפיצה שלילי.
האלגוריתם ידפיס: א. כמה תלמידים מצטרפים לנבחרת.
ב. מהו מספרו של התלמיד בעל התוצאה הגבוהה ביותר,ואיזו תוצאה השיג

sum_m,sum_h,sum_b:integer;
vote:char;
begin
sum_m:=0; sum_b:=0; sum_h:=0;
while vote <> 's' do
begin
writeln('enter your vote');
readln(vote);
if vote= 'm' then
sum_m:=sum_m+1
else
if vote = 'b' then
sum_b:= sum_b +1
else
if vote='h' then
sum_h:=sum_h+1;
end;
writeln(sum_m,' maccabi');
writeln(sum_b,' beitar');
writeln(sum_h,' hapoel');
if (sum_m > sum_b) and (sum_m > sum_h) then
writeln('the winner is maccabi')
else
if (sum_b > sum_m) and (sum_b > sum_h) then
writeln('the winner is beitar')
else
if (sum_h > sum_m) and (sum_h > sum_b) then
writeln('the winner is hapoel');
end.