Лифт выдерживает 400 кг. В лифт заходят люди массой от 50 до 70 кг. Сколько людей может зайти в лифт без перегруза(задачи реш. в Delphi) - вопрос №1911944
На нажатие кнопки ставите код
var m,k,s:integer;
begin
m := 400;
k := m div 70;
s := m — k*70;
if (s >=50) then k := k+1;
ShowMessage('Может уместиться ' + IntTostr(k) + ' человек');
end;
Добрый день. Меня заинтересовал ваш ответ "На нажатие кнопки ставите код
var m,k,s:integer;
begin
m := 400;
k := m div 70;
s := m — ..." на вопрос http://www.liveexpert.org/topic/view/1911944-lift-viderzhivaet-400-kg-v-lift-zahodyat-lyudi-massoj-ot-50-do-70-kg-skolko-lyudej-mozhet-zajti-v-lift-bez-peregruza-zadachi-resh-v-delphi. Можно с вами обсудить этот ответ?