Pascalabc.net пользователь вводит с клавиатуры температуру в градусах и направление перевода (ф ⇒ с или с ⇒ ф). требуется перевести температуру в грудусы цельсия/фаренгейта и показать на экране. формулы перевода: градусы по цельсию = (градусы по фаренгейту - 32) / 1.8 градусы по фаренгейту = (градусы по цельсию x 1.8) + 32

145

463

Посмотреть ответы 2

Ответы на вопрос:

Роза2735

Информатика

4,5(100 оценок)

Var a,b: real; s: string; begin writeln('введите температуру'); readln(a); writeln('введите направление перевода (ф=> с или с=> ф)'); readln(s); if s[1] ='ф' then begin b: =(a-32)/1.8; writeln(a,'° по фаренгейту = ', b, '° по цельсию') end else if (s[1] ='с') then begin b: =(a*1.8)+32; writeln(a,'° по цельсию = ', b, '° по фаренгейту') end else writeln('входная строка имела неверный формат'); end.