Грузоподъемность одного судна - Р центнеров. Какова грузоподъемность флотилии, составленный из К таких судов. В паскале

Question

Информатика

Генюля

23 января, 05:08

Грузоподъемность одного судна - Р центнеров. Какова грузоподъемность флотилии, составленный из К таких судов. В паскале

+3

Ответы (1)

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

Виталина · Answer 1

Var

p:real;

k:integer;

begin

Write ('Грузоподъемность судна: ') ; Read (p) ;

Write ('Количество судов: ') ; Read (k) ;

Writeln ('Грузоподъемность флотилии составит ', p*k)

end.

Пример

Грузоподъемность судна: 12000

Количество судов: 7

Грузоподъемность флотилии составит 84000