Помогите составить программу в Паскале.

вместимость бочки n литров, вместимость ведра k литров, сколько ведер надо принести чтобы наполнить бочку, считая что бочка наполнена даже если последние ведро выльется через край

Question

Информатика

Ева

14 ноября, 20:19

Помогите составить программу в Паскале.

вместимость бочки n литров, вместимость ведра k литров, сколько ведер надо принести чтобы наполнить бочку, считая что бочка наполнена даже если последние ведро выльется через край

+1

Ответы (1)

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

Ирена · Answer 1

Var x, n, k:integer;

begin

writeln ('Введите вместимость бочки - ') ;

read (n) ;

writeln ('Введите вместимость ведра - ') ;

read (k) ;

x: = n div k + 1;

writeln ('Количество ведер, необходимое для заполнения бочки = ', x) ;

end.