שאלה שנייה:
בבית המורים החליטו להמציא משחק חדש שבו קולטים מספר דו ספרתי , בודקים את ההפרש שבין ספרת האחדות לספרת העשרות (באופן אבסולוטי) ומודיעים אם מדובר במספר זוגי או אי זוגי לדוגמא:87 1=8-7 מספר אי זוגי 64 2=6-4 מספר זוגי.

פתח ויישם אלגורתים באופן מלא (כולל טבלאת מעקב) אשר הקלט שלו הוא מספר שלם דו ספרתי והפלט שלו הוא תוצאת ההפרש בניהים (ספרת האחדות והעשרות) והודעה האם המספר זוגי או אי זוגי
(אלוגריתם באופן מלא הוזכר למעלה)

שאלה שלישית:
Readln(num1);
Int_num=:trunce(num1);
Real_num:frac(num1)*100;
Achdot_real_num:=real_num mod 10;
Achdot_int_num:=int _num mod 10;
if achdot real num > achdot_int_num
then writeln('הודעה אם נכון')
else writeln('הודעה אם לא נכון')

עכשיו המשימות:
א. כתוב את החלק ההצהרתי של תת התוכניות זו.
ב. ציין מה עושה תוכנית זו לדעתך.
ג. תן הודעות מתאימות בתנאי שבתת תוכניות זו.

ושאלה רביעית :
פתח ויישם אלוגריתם אשר הקלט שלו הם שלושה מספרים שלמים והפלט שלו הוא המספר האמצעי מבין השלושה.

משימות:
א. הצג את משתני התוכניות ותפקידהם .
ב. הצג את משפטי התוכניות בשפת פסקל .
ג. עקוב בעזרת טבלאת מעקב אחר קבוצת הקלטים הבאים:
1. 7,6,4
2. 5,4,4

ויש שאלת בונוס (10 נקודות לא חובה לעשות)
readln(num1)
achdot_asarot:=num1 mod 100;
meot_alafim:=num1 div 100;
if achdot_asarot= meot_alafim then writlen('הודעה אם נכון')
elsr writeln('הודעה אם לא נכון')

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

program exe
var

begin
readln x
a:=x mod 10
x:=x div 10
for i:=1 to 3 do
begin
b:=x mod 10
sum:=sum+b
x:=x div 10
end
if sum=a
then writeln('yes')plalalal
else writeln('''' no..... plallaa
end

השני

program exe2
var

begin
readln x
a:=x mod 10
b:=x div 10
c:=abs(a-b
if x mod 2 =0
then writeln zogi
else writeln aizogi

end

שאלה רביעית

program exe4
var

begin
for i:=1 to 3 do
begin
readln x
if i=2
then writeln x
end;