Var a, b:integer;
begin
write('Введите число: ');
readln(a);
repeat;
b:=b*10+a mod 10;
a:=a div 10;
until a=0;
writeln(b);
readln;
end.
Var
i, sum, beg:integer;
str:string;
begin
sum:=0;
beg:=1;
readln(str);
for i:=1 to Length(str) do
if str[i]='+' then
begin
sum:=sum+StrToInt(Copy(str, beg, i-beg));
beg:=i+1;
end;
sum:=sum+StrToInt(Copy(str, beg, Length(str)));
writeln(sum);
end.
Var x, a, b, c, d: integer;
begin
readln(x, a, b, c, d);
if ((x > a) and (x < b)) then
writeln('[', a, '; ', b, ']');
if ((x > c) and (x < d)) then
writeln('[', c, '; ', d, ']');
<span>end.
Вот так, интервалы - они и в Африке интервалы)</span>
<span>745(8) -> x(10)
745(8) = 7*8^2+4*8^1+5*8^0 = 485(10)</span>
<span><span>745(8) = 485(10)</span></span>