1. дано 3-х знакове число. обчислити значення другої цифри в числі. напр. х=456 -> y=5

Var x,y:integer;
begin
write('x = ');
readln(x);
y:=x div 10 mod 10;
writeln('y = ',y);
end.

Пример:
x = 456
y = 5

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

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

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

 

 

 

 

 

Program Num3;

Uses Crt;

var a,b,c,n,s:integer;

 

begin

     clrscr;

     write('Введите 3 числа: ');

     readln(a,b,c);

     n:=0;s:=0;

     if (a mod 2)=0 then 

             begin

                 n:=n+1;

                 s:=s+a;

             end;

 

if (b mod 2)=0 then 

             begin

                 n:=n+1;

                 s:=s+b;

             end; 

 

 

if (c mod 2)=0 then 

             begin

                 n:=n+1;

                 s:=s+c;

             end;

  if (n=0) then writeln('Нету чётных чисел вообще !! ')

          else  writeln('Количество чётных чисел:',n,'Их сумма: ',s);    

    readkey;

 

end.