Question

Товарищи! Помогите,пожалуйста, верно составить 2 программы в Паскале. Без вас не справлюсь. Заранее спасибо! 1. Равны ли площади прямоугольного треугольника с катетами а, в и прямоугольного треугольника с катетами k, m. 2. Дано трехзначное число. Определить, какая из его цифр больше первая или вторая.

Answer 1

Задание 1

1. var
2.    a, b, k, m: real;
3. begin
4.    Writeln('Введите поочерёдно катеты a, b, k и m: ');
5.    Readln(a, b, k, m);
6.    
7.    if (0.5 * a * b) = (0.5 * k * m) then
8.        Writeln('Площади треугольников равны!')
9.    else Writeln('Площади треугольников не равны!');
10. end.

Задание 2

1. var
2.    number, firstDigit, secondDigit: integer;
3. begin
4.    Write('Введите число: ');
5.    Readln(number);
6.    
7.    if ((number >= 100) and (number <= 999)) or ((number <= -100) and (number >= -999)) then
8.        begin
9.            firstDigit := number div 100;
10.            secondDigit := (number div 10) mod 10;
11.            
12.            if (firstDigit > secondDigit) then
13.                Writeln(firstDigit, ' > ', secondDigit)
14.            else if (firstDigit < secondDigit) then
15.                Writeln(firstDigit, ' < ', secondDigit)
16.            else Writeln(firstDigit, ' = ', secondDigit)
17.        end
18.    else Writeln('Число не трёхзначное!');
19. end.

Answer 2

Конечно, я помогу вам с написанием программ на Паскале для решения этих задач.

1. Программа для определения равны ли площади двух прямоугольных треугольников:

pascalCopy code
program EqualTriangleAreas;

var
  a, b, c, k, m: real;

function TriangleArea(a, b: real): real;
begin
  TriangleArea := 0.5 * a * b;
end;

begin
  writeln('Введите катет a первого треугольника:');
  readln(a);

  writeln('Введите катет b первого треугольника:');
  readln(b);

  writeln('Введите катет k второго треугольника:');
  readln(k);

  writeln('Введите катет m второго треугольника:');
  readln(m);

  if TriangleArea(a, b) = TriangleArea(k, m) then
    writeln('Площади треугольников равны.')
  else
    writeln('Площади треугольников не равны.');

  readln;
end.

2. Программа для определения, какая из цифр трехзначного числа больше, первая или вторая:

pascalCopy code
program CompareDigits;

var
  number, firstDigit, secondDigit: integer;

begin
  writeln('Введите трехзначное число:');
  readln(number);

  // Извлекаем цифры числа
  firstDigit := number div 100;
  secondDigit := (number div 10) mod 10;

  if firstDigit > secondDigit then
    writeln('Первая цифра больше второй.')
  else if firstDigit < secondDigit then
    writeln('Первая цифра меньше второй.')
  else
    writeln('Первая цифра равна второй.');

  readln;
end.

Это две программы на языке Паскаль, которые решают задачи, описанные в вашем запросе. Надеюсь, они будут полезны! Если у вас возникнут вопросы по коду, не стесняйтесь спрашивать. Удачи вам!