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

Question

Информатика

Неля

6 августа, 18:07

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

+1

Ответы (1)

Знаете ответ на вопрос?

Виталинка · Answer 1

Program Frank;

var k, y, obshiives:integer;

begin

writeln ('Введи кол-во кур ') ;

readln (k) ;

y:=20-k;

obshiives: = (k*3) + (y*10) ;

writeln ('Общий вес птиц: = ', obshiives) ;

end.