Напишите программу на языке Pascal для решения следующей задачи: Вася и Петя занимались ловлей рыбы. У Васи улов

Японка

39

Конечно! Вот программа на языке Pascal, которая решает данную задачу:

pascal

program FishingCatch;



var

  VasyaCatch, PetyaCatch, TotalCatch: Integer;



begin

  writeln("Введите количество рыбы, которую Вася поймал:");

  readln(VasyaCatch);



  writeln("Введите количество рыбы, которую Петя поймал:");

  readln(PetyaCatch);



  TotalCatch := VasyaCatch + PetyaCatch;  // считаем общий улов



  if VasyaCatch < PetyaCatch then

  begin

    writeln("Количество рыбы, пойманное Петей, на 18 меньше, чем сумма их общего улова");

    writeln("Количество рыбы, пойманное Петей: ", PetyaCatch);

    writeln("Количество рыбы, пойманное Васей: ", VasyaCatch + 18);

    writeln("Общее количество рыбы: ", TotalCatch + 18);

  end

  else if PetyaCatch < VasyaCatch then

  begin

    writeln("Количество рыбы, пойманное Васей, на 14 меньше, чем сумма их общего улова");

    writeln("Количество рыбы, пойманное Васей: ", VasyaCatch);

    writeln("Количество рыбы, пойманное Петей: ", PetyaCatch + 14);

    writeln("Общее количество рыбы: ", TotalCatch + 14);

  end

  else

  begin

    writeln("Количество рыбы, пойманное Васей и Петей, одинаково");

    writeln("Количество рыбы: ", TotalCatch);

  end;

end.

Эта программа запрашивает количество рыбы, которую Вася и Петя поймали. Затем она проверяет условия и выводит информацию о результатах их ловли. Если Петя поймал меньше рыбы, то выводится количество рыбы, которое поймал каждый из них, а также общее количество рыбы с учетом условий. Аналогично, если Вася поймал меньше рыбы, выводится информация с учетом соответствующего условия. В противном случае, когда оба улова равны, выводится только общее количество пойманной рыбы.

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