Uses wincrt;
var
i,c:integer;
f:real;
begin
writeln('--------------------------');
writeln(' Celsius Fahrenheit ');
writeln('--------------------------');
c:=11;
f:=51.8;
for i:= 10 downto 0 do
begin
c:=c-1;
f:=f-1.8;
writeln(' ',c ,' ', f:2:2);
end;
writeln('--------------------------');
end.
0 comments:
Post a Comment