Question

Помогите пожалуйста. Тема: "Запись ветвлений на языке Паскаль" Задача 4. Составить программу (Язык программирования PascalABC) У Коли есть 100р, он хочет купить продукт за n рублей. написать программу, которая определит, хватит ли ему денег? Пример: Введите цену товара: 140 Не хватит

Answer 1

Ответ:

Объяснение:

Во вложении

Answer 2

Конечно, я могу помочь вам с этой задачей. Вот пример программы на языке PascalABC, который решает данную задачу:

pascalCopy code
program CheckEnoughMoney;
var
  KolaMoney, productPrice: Integer;
begin
  KolaMoney := 100;

  Write('Введите цену товара: ');
  Readln(productPrice);

  if KolaMoney >= productPrice then
    Writeln('Хватит')
  else
    Writeln('Не хватит');

  Readln;
end.

Вы можете скопировать этот код и вставить его в среду PascalABC, чтобы выполнить программу. Программа запрашивает у пользователя цену товара и выводит сообщение о том, хватит ли у Коли денег на покупку данного товара.