uses
Math;
var
n, r, i, d: Integer;
begin
Write ('Введите трехзначное число: ');
ReadLn (n);
r := 0;
d := 100;
if (n >= 100) and (n <= 999) then begin
for i := 1 to 3 do begin
r := r + (n mod 10) * d;
n := n div 10;
d := d div 10;
end;
WriteLn ('Результат = ', r);
end else
WriteLn ('Это не трехзначное число');
ReadLn;
end.
Объяснение:
для 3 цифр в цикле выделяются единицы, десятки, сотни.
умножается на d: в цикле меняется 100, 10, 1
результат суммируется в r
var a:array[1..n] of integer; i,s:integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(8)+1; {Массив заполняется числами от 1 до 9}
write(a[i],' ');
end;
writeln;
s:=0;
for i:=1 to n do
if (i mod 2)=0 then s:=s+a[i];
writeln(s);
end.