Сейчас буду показывать вычисления y по мере выполнения цикла while:
1)2
2)4
3)8
4)16
5)32
6)64
7)128
Ответ:128
//Получилось странное, но вроде бы жизнеспособное
//Pascal ABC.NET 3.1 сборка 1219
Var
arr,arc:array of integer;
k,n,i:integer;
begin
readln(n);
setlength(arc,n+1);
readln(k);
setlength(arr,k);
for i:=1 to n do
begin
readln(arc[i]);
inc(arr[arc[i] mod k]);
end;
for i:=0 to k-1 do
if arr[i]=0 then
begin
writeln('No');
exit;
end;
writeln('Yes');
end.
За основу взят алгоритм, изложенный в "Bикипедии" и найденный по запросу "Наибольшая общая подстрока".
Процедура переделана из C# реализации алгоритма, приведенного там же.
<em>// PascalABC.NET 3.2, сборка 1325 от 19.10.2016</em>
function MaxSubstr(s1,s2:string):string;
begin
var a:=new integer[s1.Length+1,s2.Length+1];
var u:=0; var v:=0;
for var i:=0 to s1.Length-1 do
for var j:=0 to s2.Length-1 do
if s1[i+1]=s2[j+1] then begin
a[i+1,j+1]:=a[i,j]+1;
if a[i+1,j+1]>a[u,v] then begin u:=i+1; v:=j+1 end
end;
Result:=s1.Substring(u-a[u,v],a[u,v])
end;
begin
var a:='trapperkaperkatrter';
var b:='appekaperspamer';
Writeln(MaxSubstr(a,b))
end.
Тестовое решение
kaper
Исходный файл предоставлен в расширении .cpp, измените на .c
#include <stdio.h>
long int NOD(long int var1, long int var2)
{
while(var1 != var2)
{
if(var1 > var2)
var1 = var1 - var2;
else var2 = var2 - var1;
}
return var1;
}
long int NOK(long int var1, long int var2)
{
return var1 * var2 / NOD(var1, var2);
}
int main(void)
{
long int var1, var2;
scanf("%ld%ld", &var1, &var2);
printf("НОК(%ld, %ld) = %ld\n", var1, var2, NOK(var1, var2));
}