Question

Паскаль задачи 1.Василий и Николай собирали грибы. Василий предложил: - Если я наберу грибов больше чем ты, то отдам тебе половину своих грибов, в противном случае, ты отдашь мне половину своих. Николай согласился с таким предложением. Разработать программу, с помощью которой определяется, сколько грибов по таким условием достанется каждому. соответствующее сообщение выведите на экран. Количество собранных грибов каждым участником вводится с клавиатуры. 2.Даны три стороны треугольника (вводит пользователь с клавиатуры). Разработайте программу для определения, является ли этот треугольник ривнобедренним.

Answer 1

Ответ:

Program z1;

var a,b,c:real;

begin

 writeln('Введите, сколько грибов собрал Василий');

 read(a);

 writeln('Введите, сколько грибов собрал Николай');

 read(b);

 if a>b then

   begin

   a:= a/2;

   c:= a;

   b:= a+c;

   writeln(' Василий собрал ',a,'Николай собрал ',b);

   end

   else

     a:=a;

   b:=b;

  writeln(' Василий собрал ',a,' Николай собрал ',b);

end.

Answer 2

Для решения задачи №1 на Паскале, вы можете использовать следующий код:

pascalCopy code
program MushroomsGame;

var
  VasilyMushrooms, NikolayMushrooms, VasilyShare, NikolayShare: real;

begin
  writeln('Введите количество грибов, собранных Василием: ');
  readln(VasilyMushrooms);
  
  writeln('Введите количество грибов, собранных Николаем: ');
  readln(NikolayMushrooms);
  
  if VasilyMushrooms > NikolayMushrooms then
  begin
    VasilyShare := VasilyMushrooms / 2;
    NikolayShare := (VasilyMushrooms - VasilyShare) / 2;
  end
  else
  begin
    NikolayShare := NikolayMushrooms / 2;
    VasilyShare := (NikolayMushrooms - NikolayShare) / 2;
  end;
  
  writeln('Василию достанется ', VasilyShare:0:2, ' грибов');
  writeln('Николаю достанется ', NikolayShare:0:2, ' грибов');
  
  readln;
end.

Этот код позволяет пользователю ввести количество грибов, собранных Василием и Николаем, а затем рассчитывает, сколько грибов достанется каждому в соответствии с условиями игры и выводит результат на экран.

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

pascalCopy code
program IsoscelesTriangle;

var
  side1, side2, side3: real;

begin
  writeln('Введите длину первой стороны треугольника: ');
  readln(side1);
  
  writeln('Введите длину второй стороны треугольника: ');
  readln(side2);
  
  writeln('Введите длину третьей стороны треугольника: ');
  readln(side3);
  
  if (side1 = side2) or (side1 = side3) or (side2 = side3) then
    writeln('Треугольник является равнобедренным.')
  else
    writeln('Треугольник не является равнобедренным.');
  
  readln;
end.

Этот код позволяет пользователю ввести длины трех сторон треугольника и определяет, является ли треугольник равнобедренным, и выводит соответствующее сообщение на экран.