Предмет: Информатика,
автор: StasyS
Помогите , пожалуйста. Задача пр информатике. Изучили операторы for, if ,while , repeat . Составьте программу , пожалуйста. Если на одну чашу весов посадить мальчика , который весит n - кг , а на др. чашу весов насыпать n-кг конфет , к мальчику посадить девочку , которая весит на 5 кг меньше , а конфеты гораздо тяжелее детей , сколько необходимо съесть конфет детям , чтобы чаши весов уравновесились ?
Ответы
Автор ответа:
0
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.
Интересные вопросы
Предмет: Қазақ тiлi,
автор: erkinzere15
Предмет: Английский язык,
автор: Аноним
Предмет: Математика,
автор: katya0706028
Предмет: История,
автор: imil721
Предмет: Алгебра,
автор: privat