1. Гость, мы просим Вас ознакомиться с Правилами Форума и Отказом от ответственности!

PascalABC

Тема в разделе 'Программирование', создана пользователем HackeR, 12 дек 2013.

  1. TopicStarter Overlay

    HackeR Пользователи

    Сообщения:
    1
    Лайки:
    0
    Репутация:
    0
    Помогите решииить!! Задали задание,а я в этом полный ноль!!
    По введенным с клавиатуры длинам трех отрезков определить:можно ли из них составить треугольник?
  2. Ацкой Nyan of Steel Группа анонимных алкоголиков Art Old school Пользователи

    Сообщения:
    403
    Лайки:
    477
    Пол:
    Мужской
    Репутация:
    4
    Команда:
    DeBalance Art Team
    Страна:
    Russian Federation Russian Federation
    Это же проще, чем пукнуть в лифте.

    Код:
    program Project1;
    {$APPTYPE CONSOLE}
    var a1,a2,a3,base:real;
    begin
    write('Enter 1: ');
    readln(a1);
    write('Enter 2: ');
    readln(a2);
    write('Enter 3: ');
    readln(a3);
    if a1>=a2 then base:=a1
    else
    base:=a2;
    if a3>base then base:=a3;
    if (a1+a2+a3-base)>base then writeln('Possible') else
    writeln('IMPOSSIBRU');
    readln;
    end.
    default, JoLan, Filin и 3 другим нравится это.
  3. Dimkaa Пользователи

    Сообщения:
    23
    Лайки:
    0
    Пол:
    Мужской
    Репутация:
    0
    Страна:
    Canada Canada
    Только нас в школе не учат писать вторую строку
    {$APPTYPE CONSOLE}

    Училка спалит
  4. Ацкой Nyan of Steel Группа анонимных алкоголиков Art Old school Пользователи

    Сообщения:
    403
    Лайки:
    477
    Пол:
    Мужской
    Репутация:
    4
    Команда:
    DeBalance Art Team
    Страна:
    Russian Federation Russian Federation
    А я ее и не писал, ide сама паяет. ПаскальАБЦ, кстати, ее не добавляет.
Черновик сохранён Черновик удалён

Поделиться этой страницей