Сделать в Паскале с условным оператором.

Определить температуру и вес вашего тела (вес тела любой брать) в фунтах и по шкале Фаренгейта.

1 фунт=400 грамм

переводить температуру из градусов Цельсия по формуле:

Т по фаренгейту = 1,8*температура по Цельсию+32

Question

Информатика

Василла

17 июня, 02:27

Сделать в Паскале с условным оператором.

Определить температуру и вес вашего тела (вес тела любой брать) в фунтах и по шкале Фаренгейта.

1 фунт=400 грамм

переводить температуру из градусов Цельсия по формуле:

Т по фаренгейту = 1,8*температура по Цельсию+32

+3

Ответы (1)

Знаете ответ на вопрос?

Ефросиния · Answer 1

Program z1;

var t, v:real;

begin

writeln ('введите вес (в фунтах) ') ;

readln (v) ;

v: = (v*400) mod 1000;

writeln ('введите температуру (по Фаренгейту') ;

readln (t) ;

t: = (t-32) / 1.8;

writeln ('Вес=', v,'кг; температура=', t) ;

end.