Question

 Сделать в Паскале с условным оператором.
 Определить температуру и вес вашего тела( вес тела любой брать) в фунтах и по шкале Фаренгейта.
1 фунт=400 грамм
переводить температуру из градусов Цельсия по формуле:
Т по  фаренгейту =1,8*температура по Цельсию+32 

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.