Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  GR
Language: PASCAL
Code:
program nero;
var
k:integer;
x:real;
begin
writeln('Dose katanalosi nerou se m3');
readln(k);

if (k<=100) then
x:=k*0.03
else
if (k<=150) then
x:=k*0.04
else
x:=k*0.06;

x:=x+15;

writeln ('h xreosi toy nerou einai ',x:3:2);
end
          
          
Comments: