Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  auro
Language: PASCAL
Code:
program Scatti; 
  const 
   canone=30; 
  var 
   nome:string; 
   n_scatti1,n_scatti2,scatti_tot,costo,               
   bolletta:integer; 
begin 
  writeln('Inserisci il tuo nome'); 
  readln(nome); 
  writeln('Inserisci n scatti bolletta precedente'); 
  readln(n_scatti1); 
  writeln('Inserisci n scatti bolletta attuale'); 
  readln(n_scatti2); 
  writeln('Inserisci costo unitario dello scatto'); 
  readln(costo); 
  scatti_tot:=n_scatti2-n_scatti1; 
  bolletta:=scatti_tot*costo+canone; 
  writeln('N scatti effettuati:',scatti_tot); 
  writeln('Totale della bolletta: ',bolletta); 
  writeln('Premi invio per uscire'); 
  readln; 
end.
          
          
          
Comments: