Определить, у какой доярки наибольший среднесуточный надой молока - Turbo Pascal

Формулировка задачи:

Каждая из трех доярок надоила за год (365 дней) R1, R2,R3 литров молока. Определить, у какой доярки наибольший среднесуточный надой молока и вывести на экран ее номер.


textual

Код к задаче: «Определить, у какой доярки наибольший среднесуточный надой молока - Turbo Pascal»

var
  r1,r2,r3:real;
begin
  write('r1,r2,r3=');
  readln(r1,r2,r3);//r1:=r1/365;r2:=r2/365;r3:=r3/365;
  if (r1>=r2) and (r1>=r3) then writeln(1) else
  if (r2>=r1) and (r2>=r3) then writeln(2) else writeln(3);
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

8   голосов, оценка 3.750 из 5

Источник
Похожие ответы