На питоне: Известно значение температуры по шкале Цельсия. Найти соответствующее значение температуры по шкале:
а) Фаренгейта;
б) Кельвина.
Для пересчета по шкале Фаренгейта необходимо исходное значение температуры умножить на 1,8 и к результату прибавить 32, а по шкале Кельвина абсолютное значение нуля соответствует 273,15 градуса по шкале Цельсия.

Відповідь:

celsius = input("Введите значение температуры в цельсиях:")

fahrenheit = int(celsius) * 1.8 + 32

kelvin = int(celsius) + 273.15

print("Изначальная температура: {0}(С)\nПеревод в фаренгейты: {1}(F)\nПеревод в кельвины: {2}(K)". format(celsius, fahrenheit, kelvin))

program srednball;

var a,b,d : integer;

        c : real;

begin

    writeln (' vvedite balli, nabrannie sportsmenom po 3 vidam sporta');

    readln (d);

    readln (a);

    readln (b);

    c: =(a+b+d)/3;

    writeln (' srednii ball= ', c: 4: 2);

    readln;

end.

var

  n,i,a: integer;

begin

  readln(n);

  for i: =1 to n do

  begin

  read(a);

  write(abs(a),' ');

end;

end.