Вывести на экран таблицу температур по Цельсию от 0 до 10 градусов и их эквивалентов по шкале Фаренгейта, используя фотрмулу tp=1.8tc+32
Вывести на экран таблицу температур по Цельсию от 0 до 10 градусов и их эквивалентов по шкале Фаренгейта, используя фотрмулу tp=1.8tc+32
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы