Написать программу с использованием оператора while do

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

Question

Информатика

Георгич

11 ноября, 22:19

Написать программу с использованием оператора while do

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

+3

Ответы (1)

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

Торя · Answer 1

Program portnoy;

var L, k : integer;

begin

L=400;

k=0;

While L>=3 do begin

L=L-3;

k=k+1;

end;

WriteLn (' получится ', k,' занавесок и останется ', L,' метров ткани') ;

end.