Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  scatti
Language: PASCAL
Code:
program Scatti;
const
  canone=30;
var
  nome:string;
  n_scatti1,n_scatti2,scatti_tot:integer;
  costo,bolletta:real;
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: