Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  esercizio1
Language: PASCAL
Code:
program esercizio1;
var n,r:integer;
begin
     writeln('Inserire il numero');
     readln(n);
     if n mod 2 = 0
     then r:=n*2
     else r:=n*3;
     writeln('Il numero รจ ',n:6);
     readln;
  end.
          
Comments: