Есть ответ 👍

Что тут не так? Я пиши 1 1 548 и он выдаёт, что это равносторонний program jenty2;
Var a,b,c :integer;
Begin
Writeln ('введите три числа');
Readln (a,b,c);
If (a begin
If (a=b) or (a=c) or (b=c) then Writeln (' равносторонний')
Else begin
If (a=b) or (a=c) or (b=c) then Writeln (' равнобедренный')
Else Writeln (' разносторонний')
end;
end
Else Writeln ('не существует');
End.

104
500
Посмотреть ответы 1

Ответы на вопрос:

emphasisone
4,8(57 оценок)

программа с комментариями, если все равно не понятно спрашивай

для проверки программы рекомендую n поставить где нибудь на 10 потому что вводить 1000 чисел с клавиатуры то еще удавольствие : ))

числа можно вводить по одному или одной строкой через пробел

const


    n = 1000; // длина массива

var

    d : array of integer : = new integer[n]; // объявляем и создаем массив

    a, b : integer;

   

begin

    // вводим числа в массив //

 
  writeln('введите данные в массив: ');

    for var i : = 0 to n-1 do begin

        read(a);

        d[i] : = a;

    end;

    writeln('введен массив d=', d); // выводим массив
на экран

    // переворачиваем данные в массиве                                 //

    // для этого меняем первое с последним, второе с предпоследним    
//

    // и так до середины                                               //

    for var i : = 0 to (n div 2)-1 do begin


        a : = d[i];

        d[i] : = d[n-i-1];

        d[n-i-1] : = a;

    end;

    writeln('переворачиваем массив d=', d); // выводим перевернутый массив

   
write('числа у которых первая цифра больше последней: ');

    // ищем и ввыводим числа с заданным условием //

    for var i : = 0 to n-1 do begin

        // находим чему равна 1 цифра //

        b : =
d[i];

        repeat

            b : = b div 10;

        until b < 10;

        if b > d[i] mod 10 then write(' ', d[i]); // сравниваем первую и последнюю
цифры и ели первая больше то выводим число

    end;

end.

Реши свою проблему, спроси otvet5GPT

  • Быстро
    Мгновенный ответ на твой вопрос
  • Точно
    Бот обладает знаниями во всех сферах
  • Бесплатно
    Задай вопрос и получи ответ бесплатно

Популярно: Информатика

Caktus Image

Есть вопросы?

  • Как otvet5GPT работает?

    otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
  • Сколько это стоит?

    Проект находиться на стадии тестирования и все услуги бесплатны.
  • Могу ли я использовать otvet5GPT в школе?

    Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
  • В чем отличия от ChatGPT?

    otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.

Подпишись на наш телеграмм канал

GTP TOP NEWS