Prikazi cijelu temu 04.12.2014 17:54
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Dali je vrijednost parna ili neparna.
Prrovjerava dali je unasena vrijednost parna ili neparna.
PreuzmiIzvorni kôd (Delphi):
  1. PROGRAM PROGRAM3;
  2. USES
  3.   WinCrt;
  4. VAR
  5.   x, y : REAL;
  6. BEGIN
  7.   WRITE('Dva broja ');
  8.   READLN( x, y );
  9.   IF x MOD 2 = 0 THEN
  10.     BEGIN
  11.       x := x - 2;
  12.       y := x - 2;
  13.         END
  14.   ELSE
  15.     BEGIN
  16.       x := x + 2;
  17.       y := x + 2;
  18.         END;
  19.   Writeln('x= ', x, '  y= ', y);
  20. END.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.