Вывести ** экран таблицу температур по Цельсию от 0 до 10 градусов и их эквивалентов по...

Question

Вывести на экран таблицу температур по Цельсию от 0 до 10 градусов и их эквивалентов по шкале Фаренгейта, используя фотрмулу tp=1.8tc+32

Answer 1

Var tc:integer; tp:real;
begin
for tc:=0 to 10 do begin
tp:=1.8*tc+32; writeln(tc:5,tp:10:2); end;
end.