Помогите , пожалуйста. Задача пр информатике. Изучили операторы for, if ,while , repeat . Составьте программу , пожалуйста. Если на одну чашу весов посадить мальчика , который весит n - кг , а на др. чашу весов насыпать n-кг ко...
Помогите , пожалуйста. Задача пр информатике. Изучили операторы for, if ,while , repeat . Составьте программу , пожалуйста. Если на одну чашу весов посадить мальчика , который весит n - кг , а на др. чашу весов насыпать n-кг конфет , к мальчику посадить девочку , которая весит на 5 кг меньше , а конфеты гораздо тяжелее детей , сколько необходимо съесть конфет детям , чтобы чаши весов уравновесились ?
Гость
Ответ(ы) на вопрос:
Гостьvar
n,m,i:integer;
begin
write('Введие вес мальчика: ');
readln(n);
write('Введите массу конфет (кг): ');
readln(m);
i:=0;
while n+n-5<>m do
begin
i:=i+1;
m:=m-1;
end;
writeln('Детям необходимо сьесть ',i,' кг конфет');
end.
Не нашли ответ?
Похожие вопросы