У бабушки есть куры и утки. Их всего 20 штук. Одна курица весит 3 кг, одна утка 10 кг?...

Question

У бабушки есть куры и утки. Их всего 20 штук. Одна курица весит 3 кг, одна утка 10 кг? Составить программу, которая позволяет,ввести количество кур, и на ходить общий вес птиц?

Answer 1

Program Frank;
var k,y,obshiives:integer;
begin
writeln('Введи кол-во кур ');
readln(k);
y:=20-k;
obshiives:=(k*3)+(y*10);
writeln('Общий вес птиц:= ',obshiives);
end.