Вот я и решил задачу, которую вы мне давали.
program ex1;
var n,k,i,n1:integer;
v:string;
begin
readln (n,v);
k:=length(v);
writeln (n,' ',k);
n1:=n;
if n mod k = 0 then
begin
for i:=1 to (n div k)-1 do n1:=n1*(n-i*k);
end
else
begin
for i:=1 to n div k do n1:=n1*(n-i*k);
end;
writeln (n1);
end.
Я не могу не закончить этот пост цитатой:
"Это слишком легко... Или я что-то не так делаю?" А.С. Тертерян.
Ваш, неосмотрительно решивший задачу, автор
program ex1;
var n,k,i,n1:integer;
v:string;
begin
readln (n,v);
k:=length(v);
writeln (n,' ',k);
n1:=n;
if n mod k = 0 then
begin
for i:=1 to (n div k)-1 do n1:=n1*(n-i*k);
end
else
begin
for i:=1 to n div k do n1:=n1*(n-i*k);
end;
writeln (n1);
end.
Я не могу не закончить этот пост цитатой:
"Это слишком легко... Или я что-то не так делаю?" А.С. Тертерян.
Ваш, неосмотрительно решивший задачу, автор