Предмет: Информатика, автор: alekseyMK

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

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

Ответы

Автор ответа: vasyamoscowpupkin
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.
Автор ответа: alekseyMK
0
Вася мне написали что неэффективно !!!
Похожие вопросы
Предмет: Математика, автор: harper85111
Предмет: Алгебра, автор: crfqg