Question

Ежедневно молочная ферма надаивает 1842 литра молока. Найдите количество молока, полученного за любой месяц (вводится число дней в месяце).

Answer 1

uses crt;
var
b,k,a: integer;
begin clrscr;
a:=1842;
write('Введите кол-во дней: ');
read(k);
b:=a*k;
write('Кол-во молока, полученное за данное кол-во дней равно: ',b,' Л.');
end.