Var p,i, n:integer;
begin
p:=1;
writeln('Введи n');
readln(n);
if n>=1 then
begin
for i:=1 to n do
p:=p*i;
writeln(p);
end else writeln('n>=1');
<span>end.
</span>
Его местонахождение не сразу можно выявить, словно он скрытая болезнь в организме, и может быть как серьезным и трудноустранимым, так и легким, который не так сложно устроен.
Упражнение 3
1. 1-2
2. 2-1
3. 3-3
Упражнение 4
1. 1-4
2. 3-1
3. 2-3
4. 4-2
В Паскале стандартная процедура <em>delete(S,l,k)</em>
удаляет в строке S с l-ой позиции k символов