Question

Реализация основных алгоритмических конструкций в среде программирования Паскаль. 1.В зоомагазине девочка купила для своего котёнка k пачек корма Sheba по цене 30р. и m пачек корма Felix по цене 45р. На какую сумму девочка купила корма для своего котёнка? 2. Мальчик в магазине купил n порций мороженного по цене 50р. и m плиток шоколада по цене 85р. В какую сумму ему обошлись все покупки? 3. Определить какое из трех, введенных пользователем, чисел максимальное и вывести его на экран. 4. Сумма покупки составляет а рублей. Если а больше 1000 рублей, то предоставляется скидка 15%. Вывести на экран сумму покупки с учетом скидки либо сообщение о том, что скидка не предоставляется.

Answer 1

Ответ:

привет. все проги на фото

Answer 2

Для реализации данных задач в среде программирования Паскаль, необходимо написать соответствующий код. Ниже приведены решения каждой из задач:

1. В зоомагазине девочка купила k пачек корма Sheba по цене 30р. и m пачек корма Felix по цене 45р. Найдем общую сумму покупки:

pascalCopy code
program Task1;

var
  k, m, sum: integer;

begin
  writeln('Введите количество пачек корма Sheba: ');
  readln(k);
  
  writeln('Введите количество пачек корма Felix: ');
  readln(m);
  
  sum := k * 30 + m * 45;
  
  writeln('Общая сумма покупки: ', sum, 'р.');
end.

2. Мальчик в магазине купил n порций мороженного по цене 50р. и m плиток шоколада по цене 85р. Найдем общую сумму покупки:

pascalCopy code
program Task2;

var
  n, m, sum: integer;

begin
  writeln('Введите количество порций мороженного: ');
  readln(n);
  
  writeln('Введите количество плиток шоколада: ');
  readln(m);
  
  sum := n * 50 + m * 85;
  
  writeln('Общая сумма покупки: ', sum, 'р.');
end.

3. Определим, какое из трех введенных пользователем чисел максимальное и выведем его на экран:

pascalCopy code
program Task3;

var
  a, b, c, max: integer;

begin
  writeln('Введите первое число: ');
  readln(a);
  
  writeln('Введите второе число: ');
  readln(b);
  
  writeln('Введите третье число: ');
  readln(c);
  
  max := a;
  if b > max then
    max := b;
  if c > max then
    max := c;
  
  writeln('Максимальное число: ', max);
end.

4. Выведем на экран сумму покупки с учетом скидки 15%, если а больше 1000 рублей, либо сообщение о том, что скидка не предоставляется:

pascalCopy code
program Task4;

var
  a, discountedSum: real;

begin
  writeln('Введите сумму покупки в рублях: ');
  readln(a);
  
  if a > 1000 then
  begin
    discountedSum := a * 0.85;
    writeln('Сумма покупки с учетом скидки: ', discountedSum:0:2, 'р.');
  end
  else
    writeln('Скидка не предоставляется. Сумма покупки: ', a:0:2, 'р.');
end.

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