Var i:integer;
begin
for i:=100 to 999 do
if ( i mod 100 div 10+i mod 10=5 ) and (i mod 3 = 0) then writeln(i);
<span>end.</span>
Эта операция называется: копирование.
Var S,x,i:integer;
begin
x:=1;
S:=0;
for i:=1 to 10 do begin
S:=S+x;
x:=x*2;
end;
end.
Var p:real; i,n:integer;
begin
write('n = '); readln(n);
p:=10;
for i:=2 to n do p:=1.1*p;
writeln('p = ',p);
end.
Пример:
n = 5
p = 14.641