Advertisement
AmidamaruZXC

Untitled

Jun 30th, 2020
110
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.23 KB | None | 0 0
  1. var
  2.   tc, tf: real;
  3.   i: integer;
  4.  
  5. begin
  6.   writeln('t, Цельсия     t, Фаренгейты');
  7.   for i := 1 to 6 do
  8.   begin
  9.     tf := tc * 1.8 + 32;
  10.     writeln(tc:5, '               ', tf:5);
  11.     tc += 4;
  12.   end;
  13. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement