* обозначается любое кол-во символов, ?-один любой символ
var
n, i, fact:integer;
summ:real;
begin
write('n = '); readln(n);
fact := 1;
summ := 0;
for i := 1 to n do
begin
fact := fact * i;
summ := summ + 1 / fact;
end;
writeln('Сумма ряда равна ', summ);
end.
Ну так собственно 81FF(Hex) меньше четырёхзначных нет. :)
Вроде так как-то.
Var
S: string;
i: byte;
tmp: boolean;
begin
write('Введите строку: '); readln(S);
for i := 1 to Length(S) do
begin
if ((S[i] = '*') and (tmp = false)) then
begin
S[i] := '-';
tmp := true;
end;
if tmp = true then S[i] := '-';
end;
writeln(S);
end.
Var
n:integer;
begin
Read(n);
Writeln(n div 10 - n mod 10)
end.