Segítségre lenne szükségem Free Pascal program készítéséhez! Fontos! Többi lent. Hogyan tudnék ilyen programot készíteni?

Ha egy szám/3 maradéka 0, akkor a szám osztható hárommal. Ha nem nulla, akkor pedig tudod, hogy mennyi a maradék. A 'mod' lesz a kulcsszó.

G.

@wampa

if you look closely, nem kő div:)

Program Harommal;

Uses Crt;

Var

i:Integer;

Begin

ClrScr;

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

ReadLn(i);

WriteLn;

if (i MOD 3)=0 then WriteLn('A szám osztható 3-mal!')

else WriteLn('A szám nem osztható 3-mal! A maradék: ', i MOD 3);

WriteLn;

WriteLn('A folytatáshoz nyomj le egy billentyűt...');

ReadKey;

End.

...és éppen most fosztottad meg szerencsétlent a gondolkodás örömétől.

G,

Én már csak halkan szólok, de hibakezelés pl. stringet kérek be és számmá alakítom - Val - és 'szép' kód - bár a Pascal nem érzékeny a kis és nagybetűre de var, uses, begin....

Elnézést de bántja s szemem.