Pascal. Osztható e egy szám 3-mal?

Adnék egy jó tanácsot: kezd használni beszélő neveket. A változó nevében röviden legyen benne, hogy mire fogod azt a változót használni.

...

Egyszerű példa:

Egy programban három változónk van. A változókban egy háromszög alapja, magassága és területe lesz tárolva.

Akkor:

ahelyett, hogy a változókat i, j, k-nak neveznéd el.

elnevezed alap, magassag, terulet-nek.

....

Még egy apróbb megjegyzés:

az i, j, k, i1, i2, i3, ... változókat általában ciklusváltozóknak használjuk.

....

Program Harom;

Uses Crt;

Var

i:Word;

ch:Char;

osszeg:DWord;

Begin

ClrScr;

Write('Kérek egy számot: ');

osszeg:=0;

i:=0;

repeat

repeat

ch:=ReadKey;

until ch in['0'..'9',chr(13)];

if ch<>chr(13) then begin

Write(ch);

osszeg:=osszeg+Ord(ch)-48;

Inc(i);

end;

until (ch=chr(13)) and (i>2);

WriteLn;

Write('A szám ');

if (osszeg MOD 3)>0 then Write('nem ');

WriteLn('osztható 3-mal!');

WriteLn;

WriteLn('Nyomj le egy billyentyűt a folytatáshoz!');

ReadKey;

End.