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

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

Задать свой вопрос
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.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт