<span>var a,s,mn:real;
n,i:integer;
begin
clrscr;
repeat
write('Сколько чисел ввести n>0 n=');
readln(n);
until n>0;
writeln('Введите ',n,' чисел:');
s:=0;
for i:=1 to n do
begin
write('a=');
readln(a);
if i=1 then mn:=a
else if odd(i)and(a<mn) then mn:=a;
if(i mod 2=0)and(a>0) then s:=s+a;
end;
writeln('Сумма положительных с четными индексами=',s:0:2);
writeln('Минимальный с нечетным индексом=',mn:0:2);
readln
end.</span>
Var
n,s,k:integer;
begin
Write('n='); Read(n);
s:=0; k:=0;
while n>0 do begin
s:=s+n mod 10;
n:=n div 10;
k:=k+1
end;
Writeln('Разрядность ',k,', сумма цифр ',s)
end.
<u>Пример</u>
n=142321
Разрядность 6, сумма цифр 13
Линда живет не в Риме (1), значит, она не певица (3). Кроме того, она не занимается балетом (4), значит, она <u>снимается в кино</u>. Поэтому она не парижанка (2), остаётся, что она из <u>Чикаго</u>.
Джулия живёт не в Париже (1) и не в Чикаго (там живёт Линда), значит, в <u>Риме</u> и поэтому она <u>певица</u> (3).
Для Айрис остаются только <u>Париж</u> и занятия <u>балетом</u>.
Ответ. Айрис живёт в Париже и занимается балетом.