Предмет: Информатика,
автор: alekseyMK
РЕШИТЕ НА ЯЗЫКЕ ПАСКАЛЬ, ПОМОГИТЕ ПОЖАЛУЙСТА*******
ДАНЫ ДЛИНЫ ЧЕТЫРЕХ РАЗЛИЧНЫХ КАБЕЛЕЙ. НАЙТИ САМЫЙ КОРОТКИЙ ИЗ НИХ.
Ответы
Автор ответа:
0
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.
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.
Автор ответа:
0
Вася мне написали что неэффективно !!!
Похожие вопросы
Предмет: Математика,
автор: harper85111
Предмет: Химия,
автор: Ghhjkpoi
Предмет: Геометрия,
автор: shchebetunelina07070
Предмет: Алгебра,
автор: crfqg
Предмет: Химия,
автор: sashakirillov