Question

Килограмм апельсинов стоит 70 рублей. У Сони есть сумма в N рублей. Сможет ли она купить 3 кг апельсинов? Вывести на экран ДА или НЕТ Pascal

Answer 1

Ответ:

.

Объяснение:

Var

n:integer;

Begin

readln(n);

If n div 70>=3 then writeln('Да')

else writeln('Нет')

end.

Answer 2

Конечно! Вот как можно было бы реализовать эту задачу на языке Pascal:

pascalCopy code
program OrangesPurchase;

var
  costPerKg, budget, orangesNeeded: real;

begin
  costPerKg := 70; // стоимость одного килограмма апельсинов
  write('Введите сумму в рублях, которая есть у Сони: ');
  readln(budget); // вводим сумму у Сони
  
  orangesNeeded := 3 * costPerKg; // стоимость 3 кг апельсинов
  
  if budget >= orangesNeeded then
    writeln('ДА')
  else
    writeln('НЕТ');
end.

Этот код сначала вводит сумму у Сони, затем рассчитывает стоимость 3 кг апельсинов по заданной цене. Затем он сравнивает сумму у Сони с необходимой стоимостью и выводит "ДА", если у нее достаточно денег, или "НЕТ", если не хватает.