My Pastes
Public Pastes
Layout Width
Share Pastebin
Guest
Public paste!

Untitled

By: a guest | Mar 18th, 2010 | Syntax: Pascal | Size: 0.36 KB | Hits: 59 | Expires: Never
Download | Raw | Embed | Report abuse
Copy text to clipboard
  1. program veiculo;
  2.  
  3. uses crt;
  4.  
  5. var
  6.  
  7. velocidade,quantidade_de_gasolina: real;
  8. if( velocidade >=101)and( velocidade <=150) then
  9.  
  10. begin
  11. clrscr;
  12.  
  13. write('digite a velocidade do veiculo': );
  14. readln(velocidade);
  15.  
  16. write('digite quantidade do combustivel': );
  17. readln(quantidade_de_gasolina);
  18.  
  19.  consumo:= quantidade_de_gasolina/velocidade;
  20.  
  21.      readkey;
  22.      end.
create new paste | create new version of this paste RAW Paste Data