Question

Маша купила s шоколадок. К ней пришли k подружек, сколько целых шоколадок получит каждая девочка. Все значения s, вводятся с клавиатуры. В Паскале

Answer 1

program prog;

var s, k: integer;

begin

   write('s = ');

   readln(s);

   write('k = ');

   readln(k);

   write(trunc(s / k));

end.

Answer 2

В Паскале программа для решения этой задачи может выглядеть так:

pascalCopy code
program DivideChocolate;

var
  s, k, chocolatesPerGirl: integer;

begin
  // Вводим значения s и k с клавиатуры
  writeln('Введите количество шоколадок (s): ');
  readln(s);
  
  writeln('Введите количество подружек (k): ');
  readln(k);
  
  // Вычисляем количество целых шоколадок на каждую девочку
  chocolatesPerGirl := s div k;
  
  // Выводим результат
  writeln('Каждая девочка получит ', chocolatesPerGirl, ' целых шоколадок.');
end.

Эта программа позволяет пользователю ввести значения s (количество шоколадок) и k (количество подружек). Затем она вычисляет, сколько целых шоколадок получит каждая девочка и выводит результат на экран.

Пожалуйста, убедитесь, что вы используете среду программирования, поддерживающую синтаксис Pascal, чтобы запустить эту программу.