1) Получить таблицу температур по Цельсию от 0 до 100 градусов и их эквивалентов по…

Question

58

1) Получить таблицу температур по Цельсию от 0 до 100 градусов и их эквивалентов по шкале Фаренгейта, используя для перевода формулу: tоF=0,18 (tоС +32)

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

realboatswain · Accepted Answer

50

realboatswain

02 марта 2023

Program tempiratura; uses crt; var toC: integer; toF: real; Beginclrscr; for toC: =0 to 100 do begin toF: =0,18*(tOC+32); write (' C=',toC: 2); write (' F=',toF: 4:2); write ('); if toC mod 5=0 then writeln; end; readkey; End.

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: