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

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

1

Ответы и объяснения

2013-10-20T11:41:42+00:00
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.
я изменил, то немножко неправльное было, щас норм
ок)
Комментарий удален
Отлично !)))
Вася мне написали что неэффективно !!!