Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  esercizio1
Language: PASCAL
Code:
program esercizio1;
var x,y:integer;
begin
  writeln('Inserire x.');
  readln(x);
  if x mod 2=0
       then y:=2*x
       else y:=3*x;
  writeln('Risultato: y = ',y:6);
  readln;
end.          
Comments: