Напиши программу, которая переводит градусы по Фаренгейту в градусы по Цельсию. ответ программа должна печатать в одну строку в следующем формате: "градусов Цельсия: <ответ>"
Программа работает по такому алгоритму:
(Пункт 1). Запрашивает число в градусах по Фаренгейту. Человек вводит строчку, которую нужно преобразовать в число.

(Пункт 2). Далее из этого числа надо вычесть 32.

(Пункт 3). Результат умножить на 5 и разделить на 9.

(Пункт 4). Теперь строку "градусов Цельсия: " нужно объединить с получившимся ответом, но ответ сначала переводится из числа в строчку!

(Пункт 5). Последнее: напечатать результат (например, "градусов Цельсия: 232.777").

Вот что написал я:
a = float(input("Введите температуру в градусах по фаренгейту: "))
print("градусов Цельсия: ", (a-32) * 5 / 9)
что я написал не правильно?

👇

Увидеть ответ

Ответ:

лариска6

21.03.2022

print('Градусов Цельсия: {:.2f}'.format((float(input('Введите градусы по Фаренгейту: '))- 32) * 5 / 9))

4,7(15 оценок)

Открыть все ответы

Ответ:

paradoksina

21.03.2022

{1}

const
s:string = 'IVXLCDM';
var
x,i,l,k:integer;

begin
read(x); {x < 4000}
l := 1000;
i := 4;
for i := 4 downto 1 do
begin
k := x div l mod 10;
if k = 9 then
write(s[i*2-1],s[i*2+1])
else
if k = 4 then
write(s[i*2-1],s[i*2])
else
begin
if k >= 5 then
begin
write(s[i*2]);
k := k - 5
end;
for k := k downto 1 do
write(s[i*2-1])
end;
l := l div 10
end
end.

{2}

const
eps = 1e-10;
stp = 500;

var
a: real;
l,r,m: real;
extreme: real;

function f(x:real):real;
begin
f := a*x - exp(-x)
end;

begin
read(a);
if a = 0 then
writeln('No solutions')
else
if a > 0 then
begin
l := 0;
r := stp*2;
while f(r) <= 0 do
begin
l := l + stp;
r := r + stp
end;
while r - l > eps do
begin
m := (l + r)/2;
if f(m) > 0 then
r := m
else
l := m
end;
m := (l + r) / 2;
writeln('Solution: ',m:0:5);
writeln('e^-x = ',exp(-m):0:5);
writeln('ax = ',a*m:0:5)
end
else
begin
extreme := ln(-1/a);
if f(extreme) < 0 then
writeln('No solutions')
else
if f(extreme) = 0 then
writeln('Solution: ',extreme)
else
begin
{writeln('Extreme: ',extreme);}
   l := extreme;
r := 0;
while r - l > eps do
begin
m := (l + r)/2;
if f(m) < 0 then
r := m
else
l := m
end;
m := (l + r) / 2;
writeln('Solution 1: ',m:0:5);
writeln('e^-x = ',exp(-m):0:5);
writeln('ax = ',a*m:0:5);
writeln;
   r := extreme;
l := r - stp*2;
while f(l) > 0 do
begin
l := l - stp;
r := r - stp
end;
while r - l > eps do
begin
m := (l + r)/2;
if f(m) > 0 then
r := m
else
l := m
end;
m := (l + r) / 2;
writeln('Solution 2: ',m:0:5);
writeln('e^-x = ',exp(-m):0:5);
writeln('ax = ',a*m:0:5)
    end
end
end.

{3}

var
c: array [1..12] of 0..7;
x,i,k: integer;

begin
read(x);
k := x;
i := 0;
repeat
i := i + 1;
c[i] := k mod 8;
k := k div 8
until k = 0;
for i := i downto 1 do
write(c[i])
end.

4,4(36 оценок)

Ответ:

alyabub

21.03.2022

uses crt; var s:string; c:char; m:set of char; n,i,k,p:byte; begin writeln('Введите текст из строчных латинских букв, окончаание ввода Enter'); s:=''; repeat c:=readkey; if c in ['a'..'z'] then begin write(c); s:=s+c; end; if c=#13 then writeln until c=#13; n:=length(s); m:=[]; for c:='a' to 'z' do begin k:=0; for i:=1 to n do if s[i]=c then k:=k+1; if k>1 then m:=m+[c]; end; if m=[] then write('Нет букв, встречающихся более 1 раза') else for c:='a' to 'z' do if c in m then write(c) end.

4,8(19 оценок)

Это интересно:

Компьютеры-и-электроника

15.02.2023

Как отключить Безопасный поиск в Google на Android: Простой подход для получения наилучшего опыта поиска...

Стиль-и-уход-за-собой

19.01.2021

Как сделать помаду для волос: рецепты, полезные советы и ошибки, которые нужно избежать...

Хобби-и-рукоделие

12.09.2022

Как создать эффективное водяное колесо для производства энергии...

Дом-и-сад