PascalABC.Net
Пользователь вводит с клавиатуры температуру в градусах и направление перевода (Ф ⇒ С или С ⇒ Ф). Требуется перевести температуру в грудусы Цельсия/Фаренгейта и показать на экране. Формулы перевода:
Градусы по Цельсию = (градусы по Фаренгейту - 32) / 1.8
Градусы по Фаренгейту = (градусы по цельсию x 1.8) + 32

vara,b:real;s:String;beginWriteln('Введите температуру');Readln(a);Writeln('Введите направление перевода (Ф=>С или С=>Ф)');ReadLn(s);If s[1] ='Ф' thenbeginb:=(a-32)/1.8;Writeln(a,'° по Фаренгейту = ', b, '° по Цельсию')endelse If (s[1] ='С') thenbeginb:=(a*1.8)+32;Writeln(a,'° по Цельсию = ', b, '° по Фаренгейту')endelse Writeln('Входная строка имела неверный формат');end.