Zárthelyi dolgozat feladatai 2003.05.07.

1. Határozza meg a program

  • 1.menüpontja mindazokat a kétjegyű pozitív egész számokat, amelyek nem oszthatóak 7-el, de oszthatóak 13-al! A kapott számokat és a darabszámot is írja ki a program egy SZAMOK.DAT fizikai nevű TEXT fájlba.
  • 2.menüpontja olvassa be a SZAMOK.DAT tartalmát és írja ki a képernyőre a tárolt adatokat. A keresett tulajdonságú számok kiírása után, átlagukat is írja ki!

2. Készítsen egy NEGYLAP(var x1,y1,A: integer) eljárást, mely grafikus képernyőn A oldalhosszúságú, zöld négyzetlapot rajzol. Az eljárást mentse el egy NEGYZETEK nevű Unitban. A keretprogram működtesse az eljárást úgy, hogy 10 darab, véletlen oldalhosszú (10