• Вопрос по информатике:

    Товарищи! Помогите,пожалуйста, верно составить 2 программы в Паскале. Без вас не справлюсь. Заранее спасибо!

    1. Равны ли площади прямоугольного треугольника с катетами а, в и прямоугольного треугольника с катетами k, m.

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

    • Автор:

      ahmad
  • Спасибо огромное! Спасли!)

    • Отвечал:

      casemaoc
    • 0
    Задание 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.

    • Отвечал:

      miss piggyqomg
    • 0

    Ответов нет, но ты это испарвиш!

Еще 4 ненужных тебе вопроса, но это важно для поиска