X=28
y=(28 mod 11) +3 ; y=10
x=(10 div 7)+3 ; x=4
c=10+4=14
Набрать 3 литровый баллон, перелить в 5 литровый,(там останется место для 2 литров), опять набрать 3 литровый баллон и перелить из него 2 литра в 5 литровый. (В 3 литровом баллоне останется 1 литр)
var
i, si, N, ss: Integer;
s: string;
begin
Write ('Введите N: ');
ReadLn (N);
s := IntToStr (N);
ss := 0;
for i := 1 to Length (s) do begin
si := StrToInt (s [i]);
if si mod 4 <> 0 then
ss := ss + si;
end;
Writeln ('Сумма цифр = ' + IntToStr (ss));
end.
// второй вариант решения
var
si, N, ss: Integer;
begin
Write ('Введите N: ');
ReadLn (N);
ss := 0;
while N > 0 do begin
si := N mod 10;
N := N div 10;
if si mod 4 <> 0 then
ss := ss + si;
end;
Writeln ('Сумма цифр = ' + IntToStr (ss));
end.
В ходе преобразование получилось: 47277
.
.
.
.
.
P.s. табличка пригодится для дальнейших преобразований.
4 минуты это 240 секунд. если за 1 сек передается 256000 бит (32000 байт т.е. 1 байт=8 бит) то получится 7680 килобайт за 4 минуты