программа в pascal, переводящая градусы цельсися в градусы фаренгейта и градусы кельвина.f=1.8c+32 , где f-градусы фаренгейта, с-градусы
10-11 класс
|
цельсия.k=c+273,где k-градусы кельвина,с-градусы цельсия
var
c, k, f: real;
begin
Write('Введите температуру в градусах Цельсия: ');
Readln(c);
k := c + 273;
f := 1.8 * c + 32;
Writeln('По шкале Кельвина: ', k:0:1, ', по шкале Фаренгейта: ', f:0:1)
end.
Тестовое решение:
Введите температуру в градусах Цельсия: 36.6
По шкале Кельвина: 309.6, по шкале Фаренгейта: 97.9
Другие вопросы из категории
. Выберите число с, записанное в двоичной системе, которое отвечает условию a<c<b.
1) 10001001
2) 10001100
3) 11010111
4) 1111111000
Читайте также
Tf=+32
программа в С++
Составить программу вычисления значений функции F(x) на отрезке [а; b] с шагом h.
Результат представить в виде таблицы, первый столбец которой — значения
аргумента, второй — соответствующие значения функции: "F(x) = 1/2 ctg x/4+4"
Дано массив А[1..n]. Сделать программу которая выводит те элементы массива? индексы которых являются степени двойки
Желательно с обьяснением строк
дано натуральное число n среди чисел 1,2 ... n найти все те, которые можно представить в виде суммы квадратов двух натуральных чисел.
Заранее огромное спасибо!!