Question

Мама завела себе несколько кактусов. Когда трехлетняя Маша папиной бритвой старательно побрила половину маминых кактусов, у мамы осталось еще А колючих кактусов .Сколько всего кактусов завела себе мама? НАПИСАТЬ ПРОГРАММУ В PASCAL

Answer 1

Программа на скриншоте.

Answer 2

Для решения данной задачи в Pascal, можно написать следующую программу:

pascalCopy code
program CountCacti;

var
  totalCacti, shavedCacti, remainingCacti: Integer;

begin
  writeln('Введите количество кактусов, которое у мамы осталось после бритья:');
  readln(remainingCacti);

  writeln('Введите количество полностью выстриженных кактусов:');
  readln(shavedCacti);

  totalCacti := remainingCacti + shavedCacti * 2;

  writeln('Всего кактусов, которые завела себе мама: ', totalCacti);

  readln;
end.

Программа запрашивает у пользователя количество кактусов, которое осталось у мамы после бритья (A колючих кактусов) и количество полностью выстриженных кактусов. Затем программа вычисляет общее количество кактусов, которое завела мама, с учетом того, что каждый выстриженный кактус был сокращен до двух колючих. Результат выводится на экран.