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

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

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

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

Листинг программы

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.

Объяснение кода листинга программы

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 begin writeln(1); end; else if (r2 >= r1) and (r2 >= r3) then begin writeln(2); end; else begin writeln(3); end;
end.

Оцени полезность:

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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы