Информация, информатика, информационные системы для осуществления сбора, анализа, систематизации, оценки и интерпретации данных, необходимых для решения профессиональных задач.​

Сначало Англичанин со своей женой едут в лодке на другой берег. на другом берегу остаётся Англичанин, а его жена едит обратно.

Затем Англичанка берёт с собой негритянку и они переправляются на другой берег. на другом берегу остаётся англичанка со своим мужем.

Негретянка едет обратно и берёт с обой  своего мужа и переправляется с ним на другой берег. на другом берегу остаётся негр, а его жена едет обратно. Негретянка берёт с собой жену индейца и переправляется с ним на другой берег. на другом берегу остаётся Англичанин со свой женой и негр со своей женой. жена индейца едет обратно и забирает своего мужа и они плывут на другой берег

program numsum;

uses

 SysUtils;

var

 n, i, sn: Integer;

 s: string;

begin

 Write ('Введите четырехзначное число: ');

 ReadLn (n);

 n := Abs (n);

 if (n > 9999) or (n < 1000) then begin

   WriteLn ('Введенное число не четырехзначное');

   ReadLn;

   Exit;

 end;

 s := IntToStr (n);

 sn := 0;

 for i := 1 to Length (s) do

   sn := sn + StrToInt (s [i]);

 WriteLn ('Сумма цифр числа = ', sn);

 if sn mod 5 = 0 then

   WriteLn ('Сумма цифр делится на 5')

 else

   WriteLn ('Сумма цифр не делится на 5');

 ReadLn;

end.