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

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

Question

Информатика

Акинфий

13 ноября, 08:19

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

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

+5

Ответы (1)

Знаете ответ?

Себастьян · Answer 1

Var x, n, k:integer;

begin

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

read (n) ;

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

read (k) ;

x: = n div k + 1;

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

end.