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

Question

Информатика

Костяха

17 мая, 03:11

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

+2

Ответы (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.