Сам подумай,или начерти на листочке и все поймешь!
Var
i: integer;
x: real;
begin
x := 0;
i := 0;
while i < 10 do
begin
inc(i);
x := x + 1/i;
end;
writeln(x);
end.
Код в приложении.
При вставке на сайт форматирование текста исчезает.
Program Amstrong;
var
a,b: integer;
i,j,k,
ci,
si,mi,
errkod: integer;
sti: string;
flag: Boolean;
begin
Readln(a,b);
flag:=false;
for i:=a to b do
begin
str(i, sti);
si:=0;
for j:=1 to Length(sti) do
begin
val(sti[j],mi,errkod);
ci:=1;
for k:=1 to Length(sti) do
ci:=ci*mi;
si:=si+ci;
end;
if si=i then
begin
write(si,' ');
flag:=true
end;
end;
if not flag then write(-1);
Readln;
end.
Ну. простые, статические изображения и анимация. Статические изображения, ясное дело, не "двигаются", а анимация - gif или др. изображения, которые выполняют какие либо действия, в плане движения объектов и т.п.