informatikos FPS programavimas

Taigi, gavau užduotį ir niekaip neišsprendžiu jos. Užduotis: duoti 3 realieji skaičiai a, b, c. Reikia patikrinti ar jie yra lyginiai. Prisimenu, kad pernai kažką užsirašę buvom, bet užrašus kažkur nusikišau... Gal galit kas paaiškint? Kiek pamenu, buvo kažkokie div ir mod. Gal čia jų reik?

function IsEven ( number: real ) : boolean;
begin
 IsEven := (number mod 2 = 0);
end;

Tokią funkciją pasirašai, ir, nuskaitęs tris skaičius iš klaviatūros, panaudoji:

if (IsEven(number1) AND IsEven(number2) AND IsEven(number3)) then
 writeln('LYGINIAI');
else
 writeln('NELYGINIAI');

Šiaip, paskalį paskutinį kartą prieš 3 metus mačiau, tai sintaksę pamiršęs, bet taip tai čia nėra ką veik su tokia užduotimi.

CR1M1N4L, baisiai čia protingai parašei. Manau jam užteks šitaip:

program skaiciai;
var a, b, c : integer;
begin
 ReadLn(a, b, c);
 if (a mod 2 = 0) and (b mod 2 = 0) and (c mod 2 = 0)
then WriteLn('Lyginiai')
else WriteLn('Nelyginiai');
 ReadLn;
end.

CR1M1N4L, baisiai čia protingai parašei. Manau jam užteks šitaip:

program skaiciai;
var a, b, c : integer;
begin
 ReadLn(a, b, c);
 if (a mod 2 = 0) and (b mod 2 = 0) and (c mod 2 = 0)
then WriteLn('Lyginiai')
else WriteLn('Nelyginiai');
 ReadLn;
end.

va geriausias būdas :)

Dėkui Jums :) CR1M1N4L, ką reiškia tas "IsEven" ? Panaudojau tą Deav variantą, bet nelabai supratau, ką tavo kode reiškia tas žodis. Ten koks kintamasis?

CR1M1N4L, ką reiškia tas "IsEven" ?

Funkcijos vardas :-) Galima, jei su ENG problemos, arLyginis() pasivadint - jokio skirtumo.

Aišku :)