Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  Páros/Páratlan
Language: PASCAL
Code:
Program parosszam;
VAR a:integer;
BEGIN
 Write('Adj meg egy egész számot: ');
Readln(a);
 If a mod 2 = 0 then writeln('Páros.')
 else writeln('Páratlan.');
 Writeln('Nyomj ENTER-t!');
Readln;
End.
          
Comments: