profile
Опубликовано 5 лет назад по предмету Информатика от alekseyMK

РЕШИТЕ НА ЯЗЫКЕ ПАСКАЛЬ, ПОМОГИТЕ ПОЖАЛУЙСТА*******

ДАНЫ ДЛИНЫ ЧЕТЫРЕХ РАЗЛИЧНЫХ КАБЕЛЕЙ. НАЙТИ САМЫЙ КОРОТКИЙ ИЗ НИХ.

  1. Ответ
    Ответ дан vasyamoscowpupkin
    Var a1,a2,a3,a4:integer;
    begin
    read (a1,a2,a3,a4);
    if a1<a2 and a1<a3 and a1<a4 then write ('1 кабель-короткий');
    if a2<a1 and a2<a3 and a2<a4 then write ('2 кабель-короткий');
    if a3<a2 and a3<a1 and a3<a4 then write ('3 кабель-короткий');
    if a4<a2 and a4<a3 and a4<a1 then write ('4 кабель-короткий');
    end.
    1. Ответ
      Ответ дан alekseyMK
      Вася мне написали что неэффективно !!!
Самые новые вопросы