Question

У Пети есть 1000 рублей. Он пишет контрольную работу. Если за работу будет получена оценка "4" или "5", то родители дадут Пете ещё 1000 рублей. В противном случае они лишат Петю всех его карманных денег. Напишите программу, которая выведет на экран сумму денег Пети после контрольной работы. Программа получает (через readln) количество денег Пети в самом начале и его оценку за контрольную. В ответ пишется (через writeln) количество денег Пети после контрольной.

Answer 1

Ответ:

Во вложении.

Объяснение:

Answer 2

Конечно, вот программа на языке Pascal, которая выполняет указанные условия:

pascalCopy code
program PetiaMoney;

var
  initialMoney, finalMoney: integer;
  grade: integer;

begin
  writeln('Введите количество денег Пети:');
  readln(initialMoney);

  writeln('Введите оценку за контрольную (4 или 5):');
  readln(grade);

  if (grade = 4) or (grade = 5) then
    finalMoney := initialMoney + 1000
  else
    finalMoney := 0;

  writeln('Количество денег Пети после контрольной: ', finalMoney, ' рублей');
end.

Программа запрашивает у пользователя начальное количество денег Пети и его оценку за контрольную работу. Затем она проверяет оценку и, в зависимости от результата, либо добавляет 1000 рублей к начальной сумме денег, либо устанавливает сумму денег равной нулю. В конце программа выводит на экран окончательное количество денег Пети после контрольной работы.