Var a,b,c:integer;
p,n:string;
begin
readln(p)
;For a:=1 to length(p) do
begin
n:=copy(p,a,1);
If (n=' ') or (n=',') then
begin
If b>c then c:=b;
b:=0
end
else
b:=b+1;
end;
If c=0 then c:=b;
writeln (c);
<span>end.</span>
У вас есть картинка если да то я смогу ответить просто прикрепите картинку
Ответ: 3 человека
Так как если все члены семьи дедушка отец папы,а папа отец мальчика таким образом у нас два отца. Если же наоборот то два сына
Желаю удачи:)
Program n1;
const n=10;
var a: array[1..n] of integer;
i,num,kt: integer;
begin
randomize;
kt:=0;
num:=0;
for i:=1 to n do
begin
a[i]:=random(25)-12;
write(a[i],' ');
end;
for i:=1 to n do if a[i] mod 5=0 then begin
num:=i;
kt:=kt+1;
if kt=2 then break;
end;
writeln;
write(num);
end.