Помогите составить программу в Паскале.
вместимость бочки n литров, вместимость ведра k литров, сколько ведер надо принести чтобы наполнить бочку, считая что бочка наполнена даже если последние ведро выльется через край
Var x,n,k:integer;
begin
writeln(Введите вместимость бочки —);
read(n);
writeln(Введите вместимость ведра —);
read(k);
x:= n div k +1;
writeln(Количество ведер, необходимое для заполнения бочки = ,x);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
