Program n1;
function thg(var t: real): boolean;
begin
thg:=false;
if (t>=100) and(t<1000) then thg:= true;
end;
var x,y: real;
begin
readln(x,y);
if thg(x) then x:=x-100;
if thg(y) then y:=y-100;
if x<100 then x:=x*10;
if y<100 then y:=y*10;
writeln(x,' ',y);
end.
Uses Crt;
Var
A:array[1..256] of integer;
i,iMin,N,B:integer;
Begin
ClrScr;
Randomize;
Write('N = ');ReadLn(N);
Write('A(',N,'):');
iMin:=1;
For i:= 1 to n do
Begin
A[i]:=random(21)-10;
Write(' ',A[i]);
if A[i] < A[iMin] then iMin:=i;
End;
WriteLn;
WriteLn('Min(A) = ',A[iMin],'[',iMin,']');
Write('Min = ');ReadLn(i);
B:=A[i];
A[i]:=A[iMin];
A[iMin]:=B;
Write('A(',N,'):');
For i:= 1 to n do
Write(' ',A[i]);
ReadKey
End.
program raf105;
var abc,a,sum,count: integer;
begin
write('Введите число: ');
readln(abc);
count:= -1;
repeat
a:= abc mod 10;
sum:= sum+a;
count:= count+1;
abc:= abc div 10;
until a=0;
writeln('Сумма цифр: ',sum);
writeln('Количество цифр: ',count);
end.
Смотри. В самом начале идёт единица. Если следующим идёт ноль, то результат просто умножаем на 2,если идёт единица, то результат умножаем на 2 и прибавляем у полученному единицу.
1*2+1*2*2+1*2+1*2+1*2*2=220
1*2+1*2*2*2+1*2*2+1=101